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は じ め に 


本 書 は ソニ ー の パー ソナ ル ・ コ ンピュータ クタ, SMC-777 を 材料 と し て , あれ これ と 料理 を 試み た 
結果 を まとめ あげ た ちの で す . どん な 料理 ち そ うな の で す が , 材料 の も ち 味 に 従っ て , いわ ゆる 
"素材 の 衣 き を 活か みす? よう な 調理 法 が ベス ト . 本 書 も その よう な 手順 を 踏ま えて 書か れ ま し た . 

一 般 的 な パソ コン グ の 解説 書 が , 比較 的 均等 に 各部 の 特徴 を 取り あげ て いる の に 対し , 本 書 は 
SMC - 777 の 際立っ た 部 分 に 能 点 を 絞っ て 構成 され て いま す . それ が 材料 の も ち 味 を 活か し た と い 
うこ と で , 特に Dr.Logo と グラ フィ ックス に 力点 が 置か れ て いま す . 前 者 の Logo は , これ か ら 注 
目 を 集め て ゆく で あろ う LISP 系 の 言語 に 対す る 入門 的 な 意味 あい で , また 後者 の グラ フィ ッ ク 
ス は , 映像 に 強い ソニ ー な ら で は の 数 々 の 機能 を 評価 し て . それ ぞ れ 表面 的 な 説明 の み に 留 ま ら 
ず 。 少 し ば か り 突 込ん だ 解説 を 試み まし た . 

すでに SMC-777 に 触れ て みた 方 な ら お 気付 ほ き で し ょ う が , この マシ ン , 非常 に ユニ ー ク を な 特徴 
を 備え て いま す . それ は フロ ッ ピ ー デ ィ ス ク ド ラ イプ (FDD) 内 蔵 で ある とか, 安価 な カラ ー ノ パレ 
ッ ト の 供給 と いう よう な ハー ド 的 を 側面 もち ちろ ん で す が , むし ろ ソ フト も 含め た 設計 思想 その 
も の に ある よう で す .。 ビギナー か ら エ キス パー ト ま で , 広範 を 層 の ユー ザー が それ な り に 使う こ 
と の で きる パソ コン 一 一 SMC-777 を いじ っ て いる と , そん な ソニ ー の 技術 者 の 設計 思想 が 伝わっ 
て くる よう な 気 が し ます . 確か に この マシ ン は , どん な レベ ル の ユー ザー が 使っ て みて も レベ ル 
に 応じ た 満足 を 与え を て くれ る よう で , た と えば 何 の 子 備 知 識 の な い 人 で も と に か く 使 うこ と が で 
きる し , BASIC な ん ぞ も う 飽 きた と いう マニ ア で も , 5 番地 ・8 番地 の DOS コー ル を 相手 に 結 
構 あ れこ れ 楽 し め ま す . 

本 書 は そん な SMC-777 の "良さ ” を 前 面 に 出し , ひと と お り の 全体 像 が 把握 で ほ きる よう に 構成 
し まし た . た が だ , SMC-777 の 広い 守 休 範囲 の すべ て を , 一 工 の 本 と いう 制限 の な か で ,。 何 の 子 備 
知識 も な い 方 に 紹介 し つく す の は 困難 . そこ で Logo に 関す る 章 は 別 と し て , 他 の 章 は それ ぞ れ 
て 解説 する テー マ に 対す る ベー シッ ク な 知識 を 持っ た 人 を 対象 に 記述 され て いま す . で すか ら B 
ASIC や グラ フィ ックス に つい て の 章 を 読む 前 提 と し て は , 多少 の BASIC の プロ グラ ミン グ の 
知識 が 。 ハー ド に つい て の 章 を 読む 前 提 と し て は , 若干 の ハー ド に 関す る 素養 が 必要 と いう こと 
で , 必要 に 応 し て 他 の 文献 を 参照 し て くだ さる よう , お 玉 い し て お ほ きま す . 

と も あれ , 将来 の ホー ム ・ コ ンピュータ の 原型 と も 言え る この SMC-777 を , 本 書 を きっ か け 
と し て 多く の 方 に 楽し ん で いた だ けれ ば 幸い で す . 


1984 年 4 月 著者 代表 更 笠 潤二 


吾 を 読む 天 に 


本 書 は , ソニ ー か ら 発 売 さ れ た ユニ ー ク な パソ コン SMC-777 を ハー ド ・ ソ フト に 渡っ て 総合 的 
に 解説 し た ガイ ドブ ッ ク で す 。 SMC-777 は 従来 の BASIC マ シン と 人 違い, ソニー 独自 の オペ レー 
ティ イン グ ・ シ ステ ム (Sony Filer) の 下 , 各種 の ソフ トウ ェ ア が 標準 挫 載 され て いま す . ここ に 本 
半 の 構成 示し ます の で , 読者 の 方 々 の 典 味 や 知識 に 応じ て 、 そ れ ぞ れ 好 き な 章 か ら 読 み 始め て 
いた だ きた いと 思い ます 。, 


1 章 SMC-777 概 説 
パソ コン 後発 メー カー と し て , ソニ ー は SMC-777 に 様々 な アイ デア を 成り 込ん で いま す , 本 
章 で は そう し た 特徴 的 な 部 分 を 、 ハ ー ド ・ ソ フト 共に 説明 し て いま す . また , FDD を 1 共 内 蔵 し 
た マシ ン と し て DOS を 持つ SMC -777 で は , 特に 0S た る Sony Filer が ユニ ー ク な 側面 を いく つ 
も 持っ て いま す . そこ で , Sony Filer の オペ レー ショ ン に つい て , 本 章 で は 特に ペー ジ を 割 い て 
解説 し て ゆき ます . 


2 章 Logo 初 級 講座 
MIT の セイ モア ・ パ パー ト が 生み 出し た Logo の ソニ ー 版 ,。Dr. Logo' に つい て 概説 し て ゆき ま 
す . Logo に 込め られ た 開発 理念 に 始ま っ て , Logo と イコ ー ル で 結ば れ て いる 観 も ある ター トル ・ 
グラ フィ ックス に つい て 説明 する 本 章 は , Logo の イン トロ グ ク ショ ン に 相当 し ます . 
お , 本 書 で は Logo の バー ジョ ン 1 .4 を 基本 と し て いま す . バ ー ジ ョ ン 1.0 の 読者 の 方 は 本 番 の 
と お り 動 か な いこ と も あり ます の で , バー ジョ ン 1.4 と の 交換 に つい て , マ シン グ の 購入 店 で 相談 し 
て くだ さい . 


3 章 Logo プ ログ ラミ ング 

ター トル ・ グ ラフ ィ ッ クス の 方 法論 が 理解 され た と ころ で ,Logo が 単なる お 絵描き を ツー ル で は 
な く , 立派 な プロ グラ ミン グ 言 語 で ある こと を 証明 する 意味 で 。 い くつ か の アプ リケーション の 
作り 方 を 紹介 し て ゆき ます . 特に これ ら の プロ グラ ミン グ を 通じ , 構造 化 プ ログ ラミ ング や プロ 
シー ジャ , 再帰 呼出 し (リカ ー シ プ コー ル ) と いう よう な ,Logo , ひい て は LISP に 通じ る 概念 
を 提示 し て いま す ., 


* Dr.Logo は 米国 デジ タル リサ ー チ 社 の 商標 で す 


4 章 Logo リ スト 処理 

Logo の 最大 の 特徴 は , 数 値 の み で な く 記号 も 扱え る と いう , リス ト 処 理 の 能力 に あり ます . と 
リ り わ け Dr.Logo に は プロ パテ ィ 管 理 の 能力 が な ある た め に , いわ ゆる 人 工 知能 的 な プロ グラ ム の 片 
鱗 を うか が うこ と らち 可能 で す . 生 二 は ニッ ルリ 人 全 ま 0 あ 人 
ら の 能力 を 応用 し た プロ グラ ム の 例示 まで を 内 容 と し , ひと 味 直 っ た 言語 と し て の Logo を 説明 


た ゆき ます . 


5 章 777 BASIC へ の 招待 
777 BASIC は , 一 般 的 な BASIC と 比較 し て いろ いろ と 機能 的 に 追加 され た 部 分 が あり ます . 


本 童 て は こう し た 777 BASIC の 族 特 微か ら 始 まっ て , 比較 的 ユニ ー ク な 特徴 を 備え た SOUND 命 
令 (アイル チク スク 的 な 使い 方 が 可能 ) の 実践 的 な 使い 方 ,. ディ スク まわ り の コマ ンド 等 を 解説 . 
きら に バン ドリ ング ち を れ て いる 作 表 言語 MEMO の BASIC に よる 活用 方 法 を 解説 し て ゆ ほ ます. 


6 章 グラ フィ ックス の 世界 

SMC-777 の グラ フィ ックス 機能 に は , 他 の 機種 と は ひと 味 人 違っ た 強力 な も の が あり ます . 本 章 
で は そん な グラ フィ ックス に 関し て , 基本 と な る 知識 か ら 3 次 元 グ ラフ ィ ッ クス まで , か な り 詳 
細 に 説明 し て ゆき ます . 本 章 は 全体 に 渡り , オ プシ ョ ン と し て 用 竜 さ れ て いる カラ ー パ バレット (4096 
色 か ら 16 色 を 選択 表示 可能 ) の 利用 を 前 提 と し て お り , これ に つい て の 活用 法 の 説明 も 用 意 し ま 
し た . この ほか ソニ ー よ り 発 売 さ れ て いる SMC グラ フィ ックス エディ ター の 紹介 と その BASIC 
に よる 活用 法 も 説明 し ます . な お , グラ フィ ックス 関連 コマ ンド を 中 心 と し た Ns- BASIC か ら の 
移植 テク ニッ ク の 解説 も 、 多く の ユー ザー に 役立て て いた だ ける と 思い ます . 


7 凍 ハー ドウ ェ ア 

SMC-777 は , マニ ュ ア ル で 全 回 路 図 が 全開 され た マシ ン で あり , アセ ンプ ブラ 等 を 使っ て BASIC 
や Logo で は 実現 で き な い マニ アッ ク を な 利用 方 法 が 実現 可能 で す . 本 章 で て は, この ハー ドウ ェ ア 
の 板 甘 から 始ま り : メ モ 捕 果 押 馬 必 : 負 和み へ と 解 本 を 進め ます 。 な お 才 紀 本 お 
作例 と し て , 風呂 の 温度 セン サー を 紹介 し ます . 


8 章 アセ ンプ ラ と Sony Filer 

本 章 は バン ドリ ング され た 777 Assembler を 使っ て , Sony Filer や SMC-777 の ハー ドウ ェ ア の 
能力 を 十分 に ひき 出し た いと 考え て いる 方 の た め に 設け まし た . 777 Assembler の 解説 に 始ま り 、 
DOS コ ー ル の 説明 と その 具体 的 を や り 方 , さら に Sony Filer へ の コマ ンド の 追加 方 法 や 割込み を 
利用 し た プロ グラ ム 例 な ど を 示し て ゆき ます . 


( 〇 び ! 


APPENDIX 
各 章 の 本 文 で は 触れ きれ な か っ た , や で 専門 的 な 解説 や SMC-777 ユー ザー に 有益 な 表 .。 ギフ 
ト ・ プ ログ ラム な ど を 載せ た の が , この APPENDIX で す . 
APPENDIX 1 で は , Logo の 本 文 で は 触れ きれ な か っ た 解説 や , Dr. Logo の すべ て の プリ ミ テ 
ィ プ を 載せ た 一 覧 表 を 掲載 、 そ の ほか に Nam-BASIC で 書か れ た プロ グラ ム を 777 BASIC へ 移植 
する 際 に 役立つ クイ ッ ク ・ コ マン ドリ ファ レン ス , UNIX の テキ スト 表示 コマ ンド で ある more を 
真似 た ギフ ト ・ プ ログ ラム , ザイ ログ ・ ニ ー モ ニッ ク か ら ANN 表記 へ の 対応 表 な ど 、 盛り 沢山 


な 内 容 と な っ て いま す . 
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1 草 SMC-777 概 説 


ソニ ー SMC-777 は , 数 々 の ユニ ー ク を な を 特徴 を 持つ パー ソナ ル ・ コ ンピュータ と し て , 発売 以来, 
各 方 面 の 注目 を 集め て いる マシ ン で す . この SMC-777 は , ソニ ー が 最初 に 発売 し た 非常 に マニ ア 
ッ ク な パソ コン で ある SMC-70 の 特徴 を 受け 継ぎ (確か に 機械 と し て は と て も よい パソ コン だ っ 
542222 ), さら に ユー ザー オリ エン テッ ドド な 各種 の 工夫 を こら し て 完成 され た も の で , 良き に つけ 
悪し まき に つけ , SMC-70 の 経験 と 反省 の 上 に 立脚 し た 機種 て ある と 言え る で し ょ う . ソニ ー 自 身 
も 販売 に 力 を いれ , また ユー ザー ク の 方 で も 期待 を 込め て 見 守る SMC-777 に は , 148,000 円 と いう 
価格 の 中 に 可能 を 限り 高 水準 を 後 能 が 盛り 込ま れ て いる 上 に , マニ アッ ク な ユー ザー に も まる ほ まほ 
り の ビギナー に も , 等 し く 満 足 を 与え られ る よう な 配慮 が いく つも 込め られ て いま す . 本 章 で は , 
この SMC-777 の 主 だ っ た 特徴 と , 基本 的 な 操作 方 法 を 紹介 し て ゆき まし ょ っ う . 


1-1 ハー ド と ソフ ト の 主 な 特徴 


( 1 ) ハー ドウ ェ ア の 特 後 


3.5 イ ンチ ディ スク 内 蔵 

SMC-777 の 最大 の 特徴 は , 何と 言っ て も 本 体内 に フロ ッ ピ ー デ ィ ス ク ド ラ イブ (FDD) が 1 台 
内 蔵 さ きれ て いる こと で し ょ う . 3.5 イ ンチ の マイ クロ フロ ッ ピ ー デ ィ ス ク を 外部 記 境 と し て 使え 
る と いう こと で , こ の マシ ン の 使い 勝手 は 非常 に 高い も の と な り , これ は ソニ ー が SMC-777 を , 
ソフ トウ ェ ア プ レー ヤー と 呼ぶ 理由 と な っ て いま す .。 少な を なく て とも, カセ ッ ト テ ー プ レコ ー ダ を 用 
いて の ロー ド や セー プ の 面倒 臭 る (あの 待ち 時 間 は 苦痛 以外 の な を に も の で も な を ない ) に 潤い た り , 
オプ ショ ン の FDD の 痛い 出費 に 泣い た りか ら は 解放 され る の で す . し か も , 片面 な が ら 280K バ 
イト と, 両面 倍 密 の ミニ フロ ッ ピ ー デ ィ ス ク と ほぼ 同じ 容量 を 持つ この ディ スク は , アク モス 遠 
度 と な る と 5 イン チ の も の より は る か に 速く , 高速 記録 読み 出し を 実現 し て いま す . 


レラ 


た ー 
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フロ ッ ピ ー デ ィ ス ク ド ラ イブ (FDD) 


カー ソル バド ル 
図 1-1 SMC-777 外観 図 


また ソニ ー の 3.5 イ ンチ ディ スク は プラ スチ ナック の ジャ ケッ ト に 李 わ れ , ヘッ ド ・ ウ ィ ン ド ウ の 
保護 を 目的 と し た シャ ッ タ ー も 付い て いま す . この シャ ッ タ ー は ディ スク を FDD に 出し 入れ す 
る と き に 自動 的 に 開閉 する の で , 初心 者 で も ディ スク を 事故 な く 扱え る と いう メリ ッ ト を 生ん で 
いま す ( 余 談 で す が , 3.5 イ ンチ の フロ ッ ピ ー デ ィ ス ク を 革 便 で その まま 送っ て も , 何 も 問題 が あ 
り ま せん で し た 5 インチ, 8 イン ナチ で は そう は いく まい …… ). 本 体 FDD 内 蔵 が SMC -777 の 前 
提 な の で すか ら , OS で ある オリ ジ ナ ル の Sony Filer も , ディ スク アク セス を 十分 に 考え た 上 で 
作ら れ て いる こと は , 言う まで も あり ませ ん (シス テム メニ ュー の 表示 が , その よい 例 で す ). 


シャ ッ タ ー を 開 差し 込む と 
けた と き は ここ 自動 的 に シ 
を つま むと 閉じ Pe ニュ 
る 開く 

ディ スク を 取り 出 


す と き は この ボタ 
ン を 押す 


図 1-2 3.5 イ ンチ フロ ッ ピ ー デ ィ ス ク 


カー ソル バド ル 

FDD と と も に 外 失 の 大 ほな 特徴 と な っ て いる も の に , 従来 の カー ソル キー に 代 っ て 装備 され た 
カー ソル パドル が あり ます . セン ター に 支持 点 を 持ち , 二 重 接 点 の キー が 合計 4 箇所 に 配置 され 
て いる この カー ソル パドル は , ジョ イス ティ ッ ク 的 な 感覚 を カー ソル キー に 持ち 込ん だ ども の で あ 
り 。 メニ ュー 画面 に あっ て は マウ ス の よう に ポイ ン テ ィ ン グ を する と ほほ の ツー ル と し て の 役 ま で 


務 の ます (た だ し , 機械 精度 は そう 高い も の で は な いた め , 故 隊 の 危険 は 少々 あり ます )、 
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+ RUB 
リ ル 
証 固 阿 | 因 || 岡 固 固 固 賠 胡 
4 ク ケ コ ヒ フ へ ホ レ 


CAP 応 
酸 呈 | 賠 | 較 岡 較 | 因 | 固 園 園 固 園 國 | 図 
> 4 H 
Z ァ と | 昨 7 B MM ュ ・ 日 レ ーー 昨 y ・ 
ク チ ノ テ ト ユ 4 レ 4 ン 


図 1-3 キー ボー ド の 配列 


キー ボー ド 

キー ポー ド は , キー 配列 が セレ クト リッ ク ・ ク イプ ライ クタ の も の で , JIS の 配列 と は 少々 異な っ 
お り , [ :],["], [=] と いっ た 記号 の 位置 が , 大 型 機 の 端末 と 同じ よう な スタ イル て 配列 る 
れ て いま す . また , カナ 文字 の 配列 も JIS 方 式 と は 大 幅 に 異な り , アイ ウエ オ 順 と な っ て いる た 
め , カナ 入力 に 償 れ を な い 人 に は 便利 で す . 

キー の 並び 具合 も 他 の 機種 と は 異な り , 際 り の キー と 少々 離れ て いる た め に , 初め の うち は と 
ま ど い を 感じ る こと も ある で し ょ う . し か し , 償 れ て し まう と こち ら の 方 が 好ま し く 思 っ た りす 
る も の で , また 押し 勝手 も 適度 な 手応え を 持つ た め , ミス タッ チ の 回 避 を な を ど に 役立っ て いる よう 
で 。 


カラ ー パ バレット 

カラ ー パ レッ ト ボ ポー ド を 取り 付け る こと に より , SMC-777 の カラ ー 表 示 能 力 を 4096 色 ま て 広 
げ る こと が で きま す . カラ ー パ レッ ト ボ ー ド を 取り 付け る と , これ まで 標準 16 色 し か 表示 で き な を 
か っ た も の が , 4096 色 より 16 の 色 を 自由 に 選べ る よう に な り , 微妙 な 色あい を 表現 で きる よう に 
な る わけ で す 。 

この カラ ー バ パレット ボー ド (SMI-733) は オプ ショ ン (別売 り ) で す が そ れ ほ ど 高 価 な も 
は な く , SMC-777 に お いて は 準 標準 装備 と 考え られ て いま す . た だ し , この カラ ー パ レッ ト の 能 
力 を 生か す に は アナ リロ グ RGB 端子 の 付い た モニ タ が 必要 で あり , この 種 の モニ タ は 今 の と ころ 
あま り 種 類 が な い (も ちろ ん ソニ ー か ら は 発売 され て いま す ) の て 注意 が 必要 で す . 
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( 2 ) ソフ トウ ェ ア 紹 介 


ソフ トウ ェ ア プ レー ヤー と 自称 する よう に , SMC-777 に 搭載 され た Sony Filer は 使い 勝手 の 
よい 0S で あり , そ の 上 に は 豊 滞 な ソフ ト が バン ドリ ング され て いま す . 特 に 注目 し た い の は Sony 
Filer の 初期 メニ ュー 画面 で , 他 の 0S に は 見 られ な い , 簡易 言語 の メニ ュー を 思わ せる 使い 易 
さき で す .CP/M に し ろ MS-DOS に し ろ , し ょ っ ぱな か ら 難 解 な イメ ー ジ を 与え る 画面 構成 に な っ 
て いま す が , Sony Filer で は と っ つき 易 さ を 感 じ さ せ , 誰 で も 使え る 0S と いっ た も の に 仕上 っ て 

ます . この あたり の 配慮 は し, これ か ら の OS の ひと つの 行き 方 に さ は えな る か も し れ ま せん . バン 
ドリ ング され た ソフ ト の 詳細 な 解説 は 各 章 に 譲る と し て , ここ で は 概略 を 説明 し て お きま し ょ う . 


777 BASIC 

言わ ず と 知れ た BASIC な の で す が , パソ コン 後発 の ソニ ー ら し く , 様々 な 機能 を 加え て 搭載 し 
て いま す . 全体 的 に 操作 性 が よく , 特に デバ ッ グ の し 易 さ へ の 配慮 は 注目 に 値 し ます . この 他 の 
主 な 特徴 と し て テキ スト 画面 で は , 各 文 字 ど と に アト リ ビ ュ ー ト 指定 ( 各 文 字 ご と に 表示 色 と , 
バッ ク グ ラウンド カラー, プリ ンク の 有無 を 指定 で きる ) が で きる こと , キャ ラク タ ジ ェ ネ レ ー 
タ が すべ て プロ グラ マブ ル で ある こと な ど が 挙げ られ ます . サウ ンド 機能 と し て , SOUND コマ 
ンド が , 実行 の 終了 を 待た ず に 次 に 続く コマ ンド を 実行 する マル チタ スク 的 な 機能 を 持つ こと か 

, 音 と 画面 の 併行 出力 が 可能 な こと も 見 逃 せ な い 点 で あり , また ユニ ー ク な DRAW コマ ンド を 
始め と し た 豊富 な グラ フィ ックス 機能 に より , 高度 を グラ フィ ッ ク 処 理 も 可能 と な っ て いま す . 


Dr.Logo 

スイ ス の 児童 心理 学者 ,、 ピ アジ ェ の 発達 心理 学 を 下敷 に , MIT の パパ バート 等 が 創り 出し た 人 工 
知能 言語 , Logo は 、 い ま 各 方 面 で 注目 され て いる コン ピュ ー タ 言語 で す . ひと つ に は 新しい 教育 
の 概念 を 持ち 込み , 子供 の 創造 性 を 高め る た め の 教育 が Logo を 通し て 行え を る こと か ら . また , も 
う ひ と つ は , 人 工 知能 言語 と し て 名 高い LISP (List Processor) の 機能 を その まま 受け 継い だ 言 
語 と し て , リス ト 処 理 や 再帰 呼出 し , ワー ド , オプ ジェ クト と いっ た 概念 を Logo に よっ て 学べ る 
こと か ら , 次 世代 の プロ グラ ミン グ へ の 遵 入 と し て Logo が 位置 付け られ て いる の で す . 


Assembler &Debugger 

機械 語 プ ログ ラミ ング に 欠か せな い ,、 ア セン プラ と デバ ッ ガ が バン ドリ ング さる れ て いま す . ア 
セン プラ ク の 方 は BASIC の エディ タ を 用 いて ソー スリ スト (ソニ ー 独 自 の ANN 表記 ) を 作る た 
め , 初め て の 人 に も と ま ど い な 〈 く ソー スプ ログ ラム を 作れ る と いう 利点 が あり , また デバ ッ ガ の 
方 も か を り 拡 張る され た コマ ンド を 持ち , 強力 な デバッギング ツー ル と な っ て いま す . 
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1-2 Sony Filer の 概要 


MEMO 

いわ ゆる スプ レッ ド シ ー ト 型 の 簡易 言語 MEMO は , 実用 性 の 高い アプ リケーション で す . 簡単 
な ノ モ 帳 や アド レス 帳 的 な も の か ら , 集計 用 紙 や 帳 筐 と し て 使え る まで の 機能 を 持ち , 窒 量 的 に 
もち かなり の も の で ある た め に 広い 使途 が 考え られ ます . 少な く と も 市 販 の この 類 の 簡易 言語 の 
か で も MEMO に 遅れ を と る よう な シロ モノ が ずい 分 と ある こと か ら , バン ドリ ング ソフ ト と し て 


は 上 々 の で き で ある と 言え る て で しょう. 


Game5 
3 つの ゲー ム が 搭載 る ん れ て お り , プロ グラ ミン グ の 息抜き や 時 間 つ ぶし に は , それ な り に 思わ 


ぬ 楽 し み を 味わう こと が で ます . 


以上 が SMC-777 の ハー ド と ソフ トク の 概 で す が ', 本 書 の 以降 の 章 で , 各々 の 詳細 を 追っ て 魚 説 
ゆま ます . ある 意味 で は 日 本 の AppleII に な り 得 る パ * フ ォ ー マ ンス を 持っ た マシ ン で す の で , 


し で 


皆さん が 積極 的 に チャ レン ジ そ れる こと を 期待 し ます . 
1-2 Sony Filer の 概要 


SMC-777 が どの よう な 性格 を 持つ マシ ン で ある か は , いく 分 お わか り い た だ けけ た と 思い ま 
す . 続い て 。 ハー ドウ ェ ア と 共に SMC-777 の 機能 の 柱 と な る OS( オ ペレ ー テ ィング ・ シ ステ ム ), 
Sony Filer に つい て , さる ら に 解説 を 加え ます . 

Sony Filer は シス テム フ メニュー と 呼ば れる 初期 画面 を 持ち , 登録 まき れ て いる コマ ンド や ファ イ 
ル は この メニ ュー を 通じ て 選択 ミ それ る よう に 工夫 を れ て いま す . 本 節 で は Sony Filer の 起動 方 
法 や 各種 コマ ンド の 使い 方 に つい て 角 れ る こと で , この Sony Filer の 使い や すさ る と 機能 を 見 て 
いく を g ほ あじ ょ 

な お Sony Filer の 構造 や ファ ンク ショ ンコ ー ル に つい て は , 8 章 を 参照 し て くだ さい . 


( 1 ) Sony Filer の 起動 


さっ そく SMC-777 を 動か し て み る こと に し まし ょ う . まず モニ タグ の 電源 , 続い て 本 体 裏 面 の 電 
源 ス イッ チ を ON に し ます . ピッ と 音 が し て 本 体 上 面 の パワ ー イ ンジ ケー タラ ンプ が 点灯 し ます 
の で , 次 に シス テム ディ スク を 本 体 右側 の FDD (フロ ッ ピ ー デ ィ ス ク ド ラ イブ プア) に 入れ る と , ラ 
ンプ が 灯 い て ディ スク が 回 転 を 始め ます . 

モニ タ に Sony Filer の シス テム メニ ュー の 画面 が 出 ま し た か ? で は コマ ンド の 起動 方 法 か 

ら 説 明 し て ゆき まし ょ う . 


1 章 SMC-777 要 説 


* テ \ Sony SMC-777 System version 1 .9J ※※※ 


Command 和 fil ename に る レイ) 
PIC 。PAC 2K 
COPY 。PAC 2K 
EFFECT  ,PAC 2K 


画面 (-1 シス テム ニュ ー 画 面 


コマ ンド の 起動 方 法 

従来 の DOS (ディ スク オペ レー ティ ング ・ シ ステ ム ) と 異な り , Sony Filer で は シス テム メニ 
ュー の 画面 上 で て の コマ ンド や ファ イル の 起動 は 。 カー ソル バド ル (カー ソル を 動か す 矢 印 の 付い 
て いる 板 状 の スイ ッ チ ) で 行え ます . 試し に , [|, [1 の 方 向 に カー ソル パドル を 押す と , 
が TYPE, PRINT …… の 項 に 移っ て ゆき ます . 次 に | 一 | の 方 向 に 押す と fename の 棚 に 
[| ③ | が 移り , [ご の 方 向 に 押せ ば , [ う | は command の 欄 に 戻り ます . こみ 機能 を 使っ て , 
コマ ンド や ファ イル を 選ん で 使う わけ で す . 


ここ を 押す と カー ソル が 右上 へ 移動 する 


ここ を 押す と カー ソル が 右 へ 移動 する 


図 1-4 カー ソル バド ル 
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※※※ Sony SMC-777 System VerSion 1 .9J ※※※ 


command 千 ュ lename 1 
1p22 上 し 。PAC 2K 
COPY 。PAC 2K 
EFFECT  .PAC 2K 


画面 1(-2 カー ソル バド ル で て で BASIC を 選ん だ と ころ 


Sony SMC-777 BASIC version 1 .9J 


Read ッ 
加 


画面 1-3 BASIC の 初期 画面 


試し に お 馴染 み の BASIC を 起動 し て み ま し ょ う . command 欄 に ある を カー ソル バド 
ル を 使っ て BASIC の と ころ に 移動 きせ , RETURN キー (以後 [|) を ポン と 押す だ け で OK. 
シス テム メニ ュー の BASIC の 文字 が 点 減 し て , 画面 の 下 の ほ うに …loading と いう メッ セー ジ 
が 表示 され , FDD が 動い て BASIC を 読み 込み ます . 画面 が 黒 に 変り .「 Sony SMC-777 BASIC 
version ベ メ メ 」「 Ready 」 の メッ セー ジ が 出 て , 田 マ ー ク (カー ソル ) が 点 減 す れ ば BASIC が 
入力 待ち の 状 能 で ある こと を 示し て いま す . 

シス テム メニ ュー か ら の BASIC の 起動 は , を 動か す 以外 に も 方 法 が あり ます . キー ボ 
ー ド か ら BASIC と 入力 し て くだ さい . この と き 小 文字 で 入力 し て も 大 文字 で 入力 し て も 問題 あ 
り ま せん . 画面 の 下 に > BASIC と 表示 され ます . キー ボード 上 部 に 付い て いる ファ ンク ショ ン キ 
ー の [F 1 | を 押し て も 同じ 結果 で す . 習う より 慣れ ろ . 試し に キー を た た いて みて くだ さい . 

BASIC に 限ら ず 他 の コマ ンド も この 方 法 で 起動 する こと が で きま す . 


19 


1 章 SMC-777 概 説 


※XX Sony SMC-777 System version 1。 


Command 千 i ] sname 
PIC 
COPY 。PAC 
EFFECT  .PAC 


>basic 罰 


画面 1-4 キー ボード か ら 直 接 BASIC と 入力 する 


表 1-1 シス テム メニ ュー 画面 時 の ファ ンク ショ ン キ ー の 働き 


filename 棚 の 使い 方 

次 に , 右 隣り の filename 欄 の 使い 方 を 説明 し まし ょ う . 初期 設定 され た まま の ディ スク に は ま 
だ ファ イル が セー プ き る れ て いま せん が , 自分 で 作っ た ファ イル や 他 の ディ スク か ら コ ピー し た プ 
ログ ラム は , この 欄 に ファ イル ネー ム が , さら に 右 隣り の size の 欄 に 各 フ ァイル グ の 容量 が 表示 る 
れ ま す . ファ イル の 領 城 は ディ スク 上 2K バ イト 単位 で 取ら れ ま す の で , この 欄 の 表示 も 2K バ 


イト 単位 に な っ て いま す . 
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1-2 Sony Filer の 概要 


※※※ Gony SMC-777 System VeC ヨ 1ion 1 。9J ※※ デ 


Command il ename 1 ン 6 


UK 
PRINT 
ERASE 
RENAIE 
AREA 
COPY 


TESTDEK .BAS 
CRDEMO1 ,.BAS 
NIJI ・BAS 
GETPUT  .BAS 
STAR2 ・BAS 
XSTITCH .BAS 
CRDEI02 .BAS 
STAR3 ・BAS 
NAGARE  .BAS 
IMOMUSHT , BAS 
BXDEI02 .BAS 
BXDEIMO1 .BAS 
6&PDEIO1 .BAS 
G&PDEIMD2 .BAS 


画面 1-5 BASIC コ マン ド と 共に STAR と いう ファ イル を 選ぶ 


ファ イル が 登録 きれ て いる 場合 は , コマ ンド と 共に ファ イル も 起動 を きせ る こと が で きま す . 再 


び BASIC を 例 に し て 実行 し て み ま し ょ う . 

まず さき ほど と 同じ 手順 で command 欄 の BASIC の 文字 の 上 に | っ | を 移動 し ます . 次 に カ 
ー ソ ル バ パドル を [|ー| の 方 向 に 押す と BASIC の 文字 が 点 減 し て , |[ ラ | が 人 f 操 ename の 欄 の 一 番 
上 に 移動 し ます . あと は 起動 きせ た い (プロ グラ ム の ) ファ イル 名 の 上 に を 持っ て ゆき , 
を 押せ ば BASIC が 起動 し て 指定 し た プロ グラ ム が 自動 的 に スタ ー ト し ます . た だ し , BASIC 
の コマ ンド と 同時 に BASIC と は 無関係 の ファ イル を 指定 する と , と ん で も な いこ と が 起こ る 可 
能 性 が ある の て で 十分 な 注意 が 必要 で す . 

, | っ | が filename の 欄 に ある と まき に, を 押し て か ら シ フト キー と ファ 

クシ ョ ン キ ー を 同時 に 押す こと で , Logo や BASIC の ファ イル だ け を 表示 で きま す . た と そば , 


[SHIFT|+[F 2 | を 実行 する と , filename 欄 に は 拡張 子 が BAS の ファ イル だ けが 表示 され ます . 
また , 表示 を 戻す と き に は , キー ボー ド 右 下 に ある ヘル プ キ ー (「H|) を 押せ ば OK で す . 

さき て ここ て 先々 の こと を 考え て , 知っ て お く と 便利 を 機能 を 説明 し て お きま し ょ う . ま 
イル を 登録 し 過ぎ て シス テム メニ ュー に 収まり きら を な く な っ た と き . こ の と き は | う | を ど 
ん 下げ て ゆく と , 見 え を か っ た ファ イル 名 が 下 か ら 湧 き 出し て き て 上 の ファ イル 名 が 消え 
ます . この 機能 が ある の で ファ イル の 数 が いく ら 増 えて も 心配 は いり ませ ん . しかし. これ で は ま 


だ ろ っ こい と いう 人 の た め に は , [SHIFT|+ |」 | (シフ トキ ー を 押し な が ら カ ー ソ ル バ パドル の 下 


1 章 SMC-777 械 記 


方 向 を 押す ) と いう 方 法 が あり ます . 寺 | ! | を 実行 する と 表示 され て いる も の が すべ て 
消え , 次 の 画面 が すぐ に 見 られ る の で す . 同 様 に 前 の 画面 が すぐ に 見 た いと いう と き に は , 
[SHIFT| +[ | で OK です. 

決 に , FDD に 入っ て いる ディ スク を 別 の も の に 取り 換え た いと きま は, その つど リセ モット を か ける 
必要 は あり ませ ん . + [| を 実行 する と FDD が 動き 始め て , 新しい ディ スク の 内 容 が 
画面 に 表示 され ます . 

Sony Filer は , 世界 的 に 流通 し て いる 8 ビッ ト CPU の 標準 DOS で ある CPZM の 、 マ ンマ 
シン ・ イ ンタ ー フ ェ イ ス の 改良 版 と いっ た 性 格 を 持つ , 使い 勝手 の よい DOS で す . CPM の 機 
能 を その まま に , ユー ザー 専 重 , 使い 易 さ 重視 の 設計 ポリ シー は 、 こ の シス テム メニ ュー の 画面 
を 見 た だ け で も 納得 で きま す . 余談 に な り ま す が , Sony Filer は CPM の version 1 . 4 と 
BDOS コー ル の レベ ル で 多く の 互換 性 を 持ち , さら に SMC-777 は 、 SMC-70 用 の CPM を 使用 
する こと も 可能 で す . 


( 2 ) 各種 コマ ンド の 役割 り と 使い 方 


ここ か らし ば ら 〈 は , Sony Filer を 使い こなす た め に 必要 な 各種 コマ ンド の 使用 法 を 解説 す 


El: 開 7 
単独 で 使用 する も の ファ イル を 必要 と する も の 
TYPE 


AREA 

PRINT 
ERASE 
RENAME 
ASSEM 


表 1-2 Sony Filer の コマ ンド 一 覧 


Sony Filer に は , 14 の コマ ンド が 入っ て いま す . この うち BIRD, BOY, CAT の 3 つ は Sony 
人 『GAMES 」 と いう マニ ュ ア ル を よく 読ん て 遊ん で みて くだ さい . な か 
を か よく で ほ き て いま す ( と 思う …… ). こ の 他 に , 言語 関係 の コマ ンド と し て , 御存知 の BASIC , 
注目 の 新 言語 LOGO, 機 枝 語 関係 の ASSEM, DEBUG が あり ます . ファ イル 管理 用 の コマ ンド 
と し て は ERASE, RENAME, TYPE, PRINT , ディ スク 管理 用 に は AREA, COPY が 用 意 さ る 
れ て お り , さら に , 簡易 言語 の 機能 を 持つ MEMO も あり ます . 言語 関係 の コマ ンド の 使い 方 は , 
本 書 で 詳細 に 解説 され て いま す の で て で, それ ぞ れ の 章 を 読ん で くだ さい ぃ . ここ で は , 初心 者 の 方 を 
対象 に し て , ファ イル 関係 と ア ィ スク 関係 の コマ ンド に つい て , 実習 し な が ら 解 説 し て ゆく こと 


うす 


いい ヽ 
1 
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COPY 
よく 使わ れる コマ ンド で す . 本 書 の モッ トー は 「 習 う よ り 慣れ ろ 」. 細か いこ と は 順 々 に 説明 す 

る こと と し て , まず 動か し て み ま し ょ う . シ ステ ム メ ニュ ー か ら COPY を 選ん で [を 押し て くだ 

さい. COPY コマ ンド メニ ュー 画面 が 出 て きま す , で は , よく 使う 順番 で 説明 し て ゆき ます . 


※※ Gony SMC-777 Cop ッ ソ eF ヨ 1oOn 1 。J ※※ 和 ※ 


F1 ] | み Copy djsk files 


F2 ] Cop ソ disks 


F4 Con ソ er 七 Ca55e 七 革 上 e 千 ]e5 
F5 5enerae = メッ Stem di ら = に 


[ 

記 

[ F3 Format disks 
[ 

[ 

[ End of copy 


画面 1(<16 COPY コ マン ド の メニ ュー 画面 


@Format disks 

これ は , 左側 の [F 3 ] と いう 表示 か らち も わか る と お り , ファ ンク ショ ン キ ー の [F 3 | を 押し て 
も 使う こと が で きま す . 買っ て きた ば か り の 新品 の ディ スク は , 磁気 面 も まっ さら で 何 も 入 っ て 
いま せん . これ を , コン ピュ ー ク が 使え る 初期 状態 に する た め , ディ スク 内 を 区 分 けし た り リフ ァ 
イル を 書き 込む 番地 を 付け て や っ た り , いわ ば 真っ 白紙 の 上 に 文書 を 書き 易い よう に 野 線 を 引 
で や る こと を ,。 フォ ー マ ッ ティ ング と 青い ます に ご どの シキ ビン マ ン デ ング を ラコ アン R が 
Format disks で す . これ は , さき ほど の まっ そら な 新品 ディ スク の ほか , 一 度 使っ て いろ いろ 書 
き 込 まれ て いる が 中 身 は 必要 で な い デ ィ ス ク を 初期 化し て 使う と ほ き に も 用 いら れ ま す . で は , 講 
釈 は これ くら い に し て , 実際 に 使っ て み ま し ょ う . 

まず 新品 の ディ スク か , 不用 に な っ た ディ スク を 1 枚 用 意 し て くだ さい . COPY メニ ュー 画面 
か ら カ ー ソ ル バ パドル を 使っ て Format disks を 選 示 か ,。 ある い は ファ ンク ショ ン キ ー の [F 3 を 
押し て くだ さい . する と , Format disks の 文字 が 点 減 し , 画面 下 に , 

Are you sure ? (Y プ N) 

と いう 表示 が 出 ま す . フォ ー マ ッ ト す る と , ディ スク の 内 容 が すべ て 破壊 され て し まう の で . 『「 間 
違い な いか ね ? 」 と た ず ね て くる わけ で す . ここ で [YY] を キー ボー ド か ら 入 力 する と , 
Insert NEW disk in SYSTEM drive : 


と いう 表示 が 出 ま すか ら , フォ ー マ ッ ト し た い デ ィ ス ク を FDD に 入れ , [| を 押し ます . する と 
フォ ー マ ッ ティ ング が 始ま り , 現在 フォ ー マ ッ ト さ れ て いる トラ ッ ク No が 1 . 2 .3 ……・ 69 と 順に 
表示 され , 次 に 69,68.67…… 1 と Verify し て いき ます . Verify と いう の は ., 確認 と いう 意味 で 、 


1 っ 
し っ 
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各 ト ラッ ク が きち ん と フォ ー マ ッ ト さ れ た か どう か 確か め て いる わけ で す ., 

も し , 間違っ て この コマ ンド を 選ん で し まっ た り , フォ ー マ ッ ト し た い の に Copy disks を 選ん 
で し まっ た 6. こん な と き は , キー ボード 左 上 の [ESC] キー を 押せ ば OK . COPY の メニ ュー 画 
面 に 戻っ て くれ ます . 


@Generate system disk 

フォ ー マ ッ ト が 終っ た ら , 次 に この ディ スク に シス テム を 書き 込み ます . シス テム と は , Sony 
Filer を 起動 させ た り , Sony Filer を 動か す た め の プロ グラ ム で す . 

で は ファ ンク ショ ン キ ー の [F 5 | を 選ん で くだ さい . 画面 下 に , 


Examine NEW disk ? (Y/N) 


と 表示 され ます . 
まず は , [N か ら 選 ん で み ま し ょ う . 


XXX Sony SMC-777 Copy version 1 .9J ※※% 


Copy disk fi]les 

Copy disks 

Format disks 

Conuert casset て te fi ] es 


Generate system disk 


End of copy 


Single driuve 
Dua 1 drive 
Single drive (Auto-Star て ) 
Dua 1 driue ( Auto-S+art ) 


Select [1..4] : 


画面 1-7 Generate system disk で [NI を 選ん だ と き に 出る 画面 


また , ノニ ュー が 出 て を きま し た , Sony Filer で は , FDD を 本 体内 蔵 FDD 1 台 で 使う の か , 増 
設 FDD を つない で 2 台 で 使う の か , ある い は Auto-Start (後述 ) で 使う の か を 選択 する こと が 
で きま す . これ を 数 字 キ ー グ の 1 か ら 4 て 居 択 する yP2 (GS 胡 

は 。 Single drive. 本 体内 の FDD だ け を 使う シス テム 用 で す . [2 ] は , Dual drive. 本 
体内 FDD + 増設 FDD 用 . | 3 | は , Single drive で 使う Auto-Start 用 . 14 | は , Dual drive の 


Auto-Start 用 で す . 


Auto-Start に つい て は , 少々 説明 が 必要 で て しょう. 通常 。 Sony Filer で は メニ ュー 画面 か ら 


も いさ 
に ご 
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各 コ マン ド を 選択 し て 起動 きせ ます . し か し , Auto-Start 設定 を し て お け ば , 電源 を 入れ て ディ 
スク を 差し 込む だ け で , メニ ュー 画面 を 飛ば し て 目的 の コマ ンド を 使う こと が で きま す . た と え 
ば , BASIC を Auto-Start 設定 し た ディ スク を 作っ て お け ば , ディ スク を 差し 込む だ け で すぐ に 


BASIC が 使え みろ わけ で す , 
で は , BASIC を Auto-Start 設定 に し た ディ スク の 作り 方 を 実習 し て み ま し ょ う . まず , 


Single-drive (Auto-Start ) 
を 炎 字 キー の [3 1 で 選択 し ます ,。 する と , 下 に , 
Enter Auto-Start Command Line 


と 表示 きれ ます の で , ここ で は BASIC と 入力 し て [を 押し ます . 画面 の 表示 に 従っ て シス テム 
ディ スク ( Sony Filer の 入っ て いる オリ ジ ナ ルディ スク ) を 入れ て [|. 次 に きき ほど フォ ー マ 


ッ ト し た 新品 の ディ スク を 入れ て |. あと は , この ディ スク に 入れ る コマ ンド を 一 つ ひ と つつ 聞い 


て くる の て , 冬 ン [NR] で 居 択 すれ ば よい わけ で す . [BASIC. EXE| は , も ちろ ん [YY. そ 
の 他 に [AREA.EXE|, [COPY.EXE| の 2 つ は , 入 れ て お く と 便利 で す . こ れ で , BASIC の Auto- 


も し , ディ スク の 枚数 に 余裕 が あれ ば , LOGO と MEMO の 専用 


Start ディ スク が で き あ が り . 
Auto-Start ディ スク を 作っ て お いて 使い 分 ける と , 賢い SMC-777 ユ ー ザ ー と 呼ば れる こと に な 
る で し ょ う (?). 他 の , Single drive 用 , Dual drive 用 で も 使用 方 法 は 同じ で す . 最初 に 出 て ほ 
た 「 Examine NEW disk (Y ン N) 」 で [Y| を 選択 し て も , 画面 の メッ セー ジ に 従え ば 使い 方 の 
基本 は 同じ し です. 

Dual drive を 選択 し て 2 ドラ イブ 用 の ディ スク を 作っ た 人 は , ちょ っ と 通常 と は 使い 方 に 異な 


る 点 が ある の て 注意 が 必要 で す . 
まず , 本 体内 の FDD だ け で は Dual drive 用 の ディ スク は 起動 し ませ ん . た と える 増設 FDD は 使 


増設 ディ スク ユニ ッ ト 
SMI-711 


図 1-5 増設 ディ スク ユニ ッ ト の 接続 図 


| 


い ヽ 
ふい 
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用 し な 〈 く て も , 何 か デ ィ ス ク を 入れ て お いて や る 必要 が あり ます . し か し , これ に も 抜け 道 が あ 
り 。 増設 FDD が つなが っ て いな か っ た り , ディ スク が 入っ て いな か っ た りす る と , 画面 下 に 。 
Please Insert Disk and Hit [RETURN] : 
と いう 文字 が 点 減 し ます . この と き , [ESC| を 押す と , 
User drive offline. 0.K. (Y プ N) ? 


に 表示 が 変り ます . 「 増 設 FDD は , 使わ な く て いい ん だ ね 」 と 開い て くる わけ で す 。 こ こ で , [Y] 
と 入力 すれ ば , Dual drive 用 の ディ スク も 電源 を 切る まで Single drive 用 と 同じ に 使う こと が 
きる わけ で す 。 


@ Copy disk files 


これ を 選択 する と , 

Filename : 
と 表示 され ます . これ は , ファ イル だ け を コピ ー す る コマ ンド な の で す 
使い 方 は いた 


いた っ て 簡単 。 コ ピー し た い フ ァイル 名 を 入力 し て , #』 和夫 oe スク を 
入れ 甘え て [| を 押し て や れ ば OK . ここ で も 便利 な 使い 方 を お 教え し まし ょ う . Sony Filer 
は , る を ほど お 話し し た と お り , CP/M と 類似 し た 性 格 を 持つ た め CPM の 便利 な 使い 方 が そ 

まま 使え る の で す . た と えば , BASIC の ファ イル だ け を 全部 コピ ー し た いと いう よう な 場合 , 
Filename ・ の と ころ に 「* . BAS 」 と 入力 し て や れ ば OK . [*] は .、 アス タリ スク と 呼ば れる 


※※※ Sony SMC-777 Copy version 1 .9J ※※ 区 


Copy disks 

Format disks 

Convert cassette 人 files 
Generate syStem disk 
End of copy 


Filename : 


面 面 1-8 Copy disk files の 面 面 
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記号 で , 数 値 演算 の 乗算 の 記号 で す が , ここ で は ファ イル 名 の 代わ り に 使用 し , すべ て の と いう 
意味 を 持つ ファ イル マッ チ 記 号 で す . また , ファ イル マッ チ 記 号 に [ ? ] を 使う こと も で きま す . 
これ は 。,[ ? ] が その 位置 に お ける 1 文字 に 相当 し ます . た と えば , 「A ? ? ? , BAS 」 と 入力 す 
れ ば , A で 始ま り , 全部 で 4 文字 の BASIC の ファ イル を すべ て 探し 出し て き て コピ ー し て くれ 
ます ., た くる ん の ファ イル を コピ ー す る と き な ど と て も 便利 で す ., 

Copy disk fies で ファ イル を コピ ー す る と ちほ き , 指定 し た ファ イル 名 が すでに Backup disk 上 
に 存在 し て いる と 。, 


File exists, Erase (Y プ N) 


つま り , 「 こ の ファ イル は 6? ら う 書き 込ま れ て いる けど , 古い ファ イル は 消し て も いい の か ね ?」 
と た ず ね て きま す . 新た に 書き 込み た いと る は ,|[Y| を 押せ ば 古い ファ イル は 消去 され て 新しい フ 


ァイル が 書き 込ま れ ま すし , 「N| を 押せ ば ,. その まま コピ ー の メニ ュー に 戻り ます . 
@ Copy disks 
次 に ,。 ディ スク を まる ご と コピ ーー し た と の い の フ EE フラ が な と き に 介 の メデ ュー ダグ 紹 ポレ まり し よう " 


0 PT コピ ー し た いも と の 
FDD が 作動 し て 。 ま ず 14 ト ラッ ク 分 読み 取り ます . 次 に , ヶ 
クア ッ プ ディ スク を 入れ て [する と , その 14 ト ラッ ク 分 の デー タ が 書き 込ま れ , さら に ベリ ファ 
イ し ます . この 動作 を 5 回 繰り 返す と , そっ くり 同じ 内 容 を 持っ た バッ クア ッ プ ディ スク が 1 枚 

で き 上 り ま す 。 
ディ スク の 入れ 菩 え が 面倒 臭い な , と 思わ れる 方 も いる で し ょ う . 何 度 も 入れ 蒼 え を 行っ て い 


※※ Sony SMC-777 Copy version 1 。.9J ※※ デ ※ 


EE 還 け Copy disk fi ] es 

[ F2 ] 厨 EOByGHSEa 生 生地 虹 ! 
[ F3 ] Format disks 

[ F4 ] Convert† cassette 千 ] es 
ES Generate =ystem dis に 
LHOME] End of copy 


Insert SOURCE disk : 


画面 1-9 Copy disks の 画面 
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る うち に ソー ス デ ィ ス ク と バッ クア ッ プ ディ スク を 間違え て 大 切な ファ イル を 壊し て し まっ た , 
な ど と いう こと に も な りか ね ませ ん . こん な と き , 増設 ドラ イブ を 使う と ディ スク 入れ 奉 え の 手 
避 が か か ら ず と て も 便利 で す . 

2 ドラ イブ で 使う とき , 画面 の メッ セー ジ が ちょ っ と 人 包 っ て きま す の で 注意 し て くだ さい . 
System drive と いう の が 本 体内 蔵 FDD, User drive が 増設 FDD 側 を 示し ます . な お , 老婆 心 
な が ら 付 け 加え て お 〈《 と , メッ セー ジ の な か て 使わ れる ,「 SOURCE disk 」「 SYSTEM disk 」 
と いう の が , も と に な る ディ スク , つま り 読 み 取 り 用 ディ スク で ,「BACKUP disk」「NEW disk」 
が 新た に 書き 込み を し よう と する ディ スク を 指し ます . 念 の た め . 

を れ で : ディ スク 同士 の コピ ー の 方 法 は 理解 で きた で し ょ う 。 デ ィ ス ク ド ラ イプ の 使い 方 に 慣 
れ て いな い 方 は , 練習 用 の ディ スク を 作っ て 何 度 か トラ イア ル を し て か ら 本 番 に の ぞ ま れる の が 
よろ し いか と 思い ます . 大 切な ファ イル を 破 填 し て あと で 泣か な いた め に も ……. 


@Convert cassette files 

Sony filer で は , 含ま で カセ ッ ト テ ー プ を 使っ て いた 方 の た め に , カセ モット テー プ か ら デ ィ ス 
ク に ファ イル を コピ ー す る コマ ンド も 用 意 さ れ て いま す . 

ファ ンク ショ ン キ ー で [F 4 ] を 選択 し て てく ださい. た だ し ひと つ 注 意 し な けれ ば な ら な いこ と 
が あり ます . ここ で 扱え る ファ イル は , BASIC 以 外 の ファ イル で ある , と いう こと で す . 試し に , 
カセ ッ ト テ ー プ か ら BASIC の ファ イル を 読み 込ん で み ま す と, 


Skip OOOO. BAS (USE BASIC ! ) 


と 表示 され て , BASIC の ファ イル を 素通り し て 決 の ファ イル へ 進ん で て し まい コピ ー は で きま せ 


Copy disk fi] es 

Copy disks 

Format disks 
Generate sys=tem dis= に 
End of copy 


Mount casse て て e and ら Star て : 


画面 1-10 Convert cassette fjles の 画面 
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ん . これ は , BASIC の 中 に 「 CLOAD 」 と いう カセ ッ ト テ ー プ の ファ イル 専用 の コマ ンド が ある 
の で , CLOAD を 使っ て ファ イル を 読み 込み , それ を SAVE で ディ スク に コピ ー し て くれ , と い 
う 意味 な の で す 。, 

で は , BASIC 以外 の ファ イル の 入っ た カセ ッ ト テ ー プ を 用 意 し て 実行 し て み ま し ょ う . Conv 


ert cassette files を 実行 する と , 
Mount cassette and start : 


と いう 表示 が 出 ます . カ セッ ト テ ー プ を セッ ト し て か ら [を 押し て , 次 に カセ ッ ト テ ー プ レコ ー 
グ を スク ー ト る せま す . カセ ッ ト テ ー プ か ら フ ァイル の 読み 込み が 終了 し た ら メ ッ セ ー ジ に 従っ 
えて [すれ ば OK . Save が 終る と, 


Convert more files ? (Y プ N) 


と 表示 る れる の で , 寺 給 ら う 終り SR 
これ で , COPY コマ ンド の 使い 方 は すべ て 説明 し まし た . よく 使う コマ ンド な の で , し っ か り 
慣れ て お いて くだ さい , 最後 に , 終了 の 仕方 . COPY の メニ ュー 画面 の 一 番 下 に ある , 


End of copy 


を カー ソル バ パドル で 選評 か , キー ボー ド 右 側 に ある HOME| えー を 押せ ば , Sony Filer の シス テ 
ム ノ メニ ュー の 画面 に 戻り ます . 


ERASE 
て 次 は 。 い らち なく な っ た ファ イル を ディ スク 上 か ら 外 し て し まお ブ 。 と いしい ば の ゴー マン ン MG で す 
ワウ の 82 と の 正和 
に よっ て 習う より 慣れ ろ . 

まず , コマ ンド 欄 の [ララ | を ERASE の 上 に 持っ て ゆき ます . 決 に , [っ ラ | を fename 欄 の 
消し た い フ ァイル 名 の 上 に 移動 きせ て , [| を 押し ます . ERASE と ファ イル 名 が 点 減 し て , 下 の 
ほ は うだ, 


人 Ak 


Erase ? (Y プ N) 


と 表示 され ます .「 消 し て も いい の ? 」 と 親切 に 開い て くる の で す . よく 確か め て IYj を 押す と , 
FDD が 作動 し て , 画面 上 か ら 指 定 し た ファ イル 名 が 消え て し ます . 
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1 章 SMC-777 概 記 


XXX Sony SMC-777 System ver8ion 1 .9J ※※※ 


command fi] ename 8 1 Ze 
PIC 。PAC 
COPY 。PAC 
EFFECT  .PAC 
STAR 。BAS 
CRDEMO1 .BAS 
NIJI .。BAS 
GETPUT  .BAS 
STAR2 ・BAS | 
XSTITCH .BAS | 
CRDEM02 .BAS 
STAR3 。BAS | 
NAGARE  .BAS | 
IMOMUSHI .BAS | | 
BXDEM02 .BAS 
BXDEM01 .BAS 
G&PDEMO1 .BAS 
G&PDEMO2 .BAS 


Erase ? (Y/N) 


画面 1-11 ERASE コ マン ド の 実行 画面 


この ほか に ファ イル を 削除 する 方 法 と し て は ,BASIC の コマ ンド を 使う 方 法 が あり ます . BASIC 
の 命令 の 中 に ERA と いう コマ ンド が あり まし て 。 マ ニュ アル 風 に 書く と , 


ERA ~[〈< ド ライ ブ 名 :〉] < ファ イル 名 . < 拡張 子 >” 


と な り ま す . 本 体内 蔵 FDD を 使用 する 場合 、 ドラ イブ 名 は 省略 可能 で す . 増設 FDD の ファ イル 


を 削除 する と まき は, 「 B : 」 と 入力 し て くだ さい . あと は , ファ イル 名 と 拡張 子 を 入力 し て や れ ば , 
ERASE と 同様 に ディス ク 上 か ら フ ァイル が 消え て な く な り ま す . 


RENAME 

これ は , プロ グラ ム の 内 容 を 変更 せ すず に , ファ イル 名 だ け を 書き 換え る コマ ンド で す . 

ます , command 欄 か ら RENAME を 選ん で , 次 に filename 欄 か ら 変更 し た い フ ァイル 名 を 選 
択 し ます . 画面 下 に , 


>New filename : 


と 表示 され ます の で , 変更 する 新しい ファ イル 名 を 入力 し て くだ さい . この と き 。, 拡張 子 BAS や , 
PAC の よう に ファ イル 名 の あと の ほう に 付い て いる 拡張 子 (タイ プ 名 ) を 忘れ る と その まま 拡張 
子 な し て 登録 され て し まい ます か ら , 忘れ ず に 拡張 子 も 入力 し て くだ さい . 
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1-2 Sony Filer の 概要 


※※※ Gony SMC-777 System ver ヨ 1ion 1 .9J ※※ デ 


COmmand 千 ュ il ename 
PIC 
COPY 
EFFECT 
STAR 
TESTDEK 
CRDEMO1 
NI JI 
GETPUT 
STAR2 

| XSTITCH .BAS | 

CRDEMO02 .BAS 
STAR3 。BAS 
NAGARE  .,.BAS 
IMOMUSHI , BAS 
BXDEIMO2 .BAS 
BXDEMO1 ,.BAS 
6&PDEMO1 . BAS 
6&PDEMD2 . BAS 


>Neu 千 ilename : 


画面 1-12 RENAME コ マン ド の 実行 画面 


RENAME で は , すでに ディ スク 上 に 登録 さき れ て いる 名 前 に 変更 し よう と する と, 


File exists 


と , エラ ー メ ッ セ ー ジ を 出し て きま す の で , [ESC] キー を 押し て 別 の 名 前 を 入力 し て くだ さい . 
さき は ほど の ERASE 同様 。 BASIC 上 で も ファ イル 名 の 書き 換え を する こと が で きま す . 
REN と いう コマ ンド が それ で す . マニ ュ ア ル 風 に 書く と , 


REN [< ドラ イブ 名 : >] <I 旧 ファ イル 名 > . < 旧 拡 張子 >” TO 
~[ く ドラ イブ 名 : >] < 新 フ ァイル 名 > . < 新 拡 張子 >? 


と な り ま す . 試し に , JUN .BAS を KEN . PAC に 変え て み ま し ょ う . 
REN “JUN.BAS” TO “KEN.PAC” 


これ て で [| すれ ば OK で す . 


AREA 
これ は , ディ スク の 書き 込み 可能 容量 を 知る た め の コ マン ド で す . Sony Filer の シス テム メニ 
ュー 画面 か ら AREA を 選ん で [| を 押す だ け で OK . 従来 の DOS と 異な たり 、 ビ ジュ アル に 環 り 


1 章 SMC-777 概 局 


**$ Song SHC-777 rea Version 1.6J #$ を 


[Driue〕 +Free 介 Fe&+ 


1 Kbgtes 


Hit Any Key !!! 


画面 1-13 AREA コ マン ド の 実行 画面 (増設 ドラ イブ 接続 時 ) 


の バイ ト 数 を 示し て 《 れ ます . 

赤い 色 で 塗ら れ た 部 分 が 使 有 中 の エリ ア , 青い 色 の 部 分 が 空い て いる フリ ー エ リア で , 残り バ 
イト 数 が 数 字 で 表示 され ます . 2 ドラ イプ て 使用 し て いる と き は , A、B 両 ドラ イブ の 使用 。 未 
使用 エリ ア が 同じ 画面 に 表示 され ます . 


Hit Any key ! !! 


と いう 画面 表示 に 和仁 っ て , 任意 の キー を 押す と Sony Filer の シス テム メニ ュー 画面 に 戻り ます . 
SMC-777 で 使わ れ て いる 3.5 イ ンチ の マイ クロ フロ ッ ピ ー デ ィ ス ク は ほ は , 全部 で 280K バイ ト ま 
ーー 


? 


で デー タ を 書き 込む こと が で きま す . し か し , ファ イル の 数 が 多く な っ て くる と 思わ ぬ と ころ 


Out of disk space 


な ど と いう エラ ー メ ッ セ ー ジ を 頂 戴 する こと に な る の で , た ま に AREA コマ ンド で 残り の フリ 
ー エ リア を 確認 する 習慣 を つけ て お 〈 く と よい で し ょ う 
TYPE 


ファ イル の 内 容 を CRT 上 に 表示 する た め の コ マン ド で す . この TYPE コマ ンド て 扱え る フィ 
イル は , アス キー 形式 で 記憶 され て いる ファ イル だ け な の で , 通常 の BASIC の プロ グラ ム な ど は 
表示 で きま せん . アス キー 形式 の ファ イル と し て よく 見 か ける も の に は , タイ プ 名 に , ANN が 


ンー ミコ ルー ゝ る 


使わ れ て ぃ る ANN 表記 て 書か れ た アセ ンプ ブラ の プロ グラ ム や , SAVE/A で 記憶 され て 


| レ 

BASIC の プロ グラ ム な ど が あり ます . 

使い 方 は , Sony Filer の レス テム ノニ ュー 画面 上 で , TYPE コマ ンド と 内 容 を 見 た いらい ファイ 
呈す だ け . 途中 で 止め て よく 見 た いと いう ときには, |CTRL| 十 |S| を 押し , 


/ 


つど 
MS 


R 


生 レー 


、ー 
1 


1-2 Sony Filer の 概要 


make "eo] znoe - :d+ ィ 1 
1abel "12 
make "」 si 
1abe1 "13 
make "て 1 thing (uord :」) 
make "て t2 thing (uord :」+ id) 
19 二 PU 本 の 0 セ グン 
[make (uord :」) : て 2 
make (uord :」 十 id) 1 
make "」 :」 一 id 
if :」 > 9 [go "131] 


make "1 ii + 1 
if ii < zeo] FLgo "12] 
if id > 1 [go "11] 


make "1 :noe 
make "] [上] 


ら G ロ 68 著 inO@ 
[make "] fput thing (uord ii) s] 


make "i ii 一 1] 
op 1 


画面 1-14 TYPE コ マン ド の 実行 画面 


PRINT 
この コマ ンド は , 
CRT 上 に 表示 する の と 同時 に プリ ンタ に も る 内容 を プリ ント アウ ト し ます . 
も し , プリ ンタ が つなが っ て いな か っ た り , プリ ンタ に 異常 が ある と , 


TYPE と 同様 に アス キー 形式 の ファ イル 内 容 を 表示 する 働き を し ます が 


Printer not ready : 
と メッ セー ジ が 出る の で , を 押し て , 一 度 Sony Filer の シス テム メニ ュー に 戻っ て か ら や 


り 直 し て くだ さい . 


SMC-777 の 接続 方 法 に 始ま っ て , 起動 の 方 法 か ら Sony Filer の コマ ンド の 使い 方 まで 詳し く 
説明 し て きま し た が , お わか り い た だ けた で し ょ うか . 本 章 で は , 初心 者 の 方 々 を 対象 に 説明 し 
た の で 中 , 上 級 者 の 方 々 に は ちょ っ と 物足りな い 感 を 与え て し まっ た か も し れ ま せん . し か し . 


SMC-777 は , 従来 の 同 価格 壮 の マシ ン の 常識 を 打ち 破っ た 新 機軸 の FDD 標準 装備 , DOS 搭載 , 


強力 グラ フィ ックス , etc が 盛り 込ま れ , 十分 に 楽し め る パソ コン で ある こと は 確か で す . また , 
マニ ュ ア ル に ハー ドウ ェ ア の 詳細 か ら 回 路 図 まで も 公開 され る な ど ,。 ユー ザー 本 位 の 座 勢 が うか 


が X ま ず 。 
初め て パソ コン に 触れ る 人 の た め に は , 楽し い ゲ ー ム や Logo の ター トル ・ グ ラフ ィ ・ 


み ー 
プ へ > 


プ 
/ 放 


ンー 
し っ 
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1 章 SMC-777 概 記 


ログ ラム を 用 意 し , どこ か ら 読 み 始 め て も よい よう に 構成 を 工夫 し まし た の で , 初め て の 方 も 騰 
せ ず キー ボー ド を た た き , 一 日 も 早 〈 SMC-777 を 使い こなし て いた だ きた いと 思い ます . 


章 LOgO 初 級 講座 


SMC-777 に 梗 準 搭 米 きれ た 言語 の うち , 最 ら 興味 深い も の が Dr. Logo で し ょ う . 周知 の と お 

, 人 工 知能 言語 り し く 〈 は 教育 用 言語 と し て つと に 名 高い Logo は , 1967 年 に セイ モア ッ ツ パー ト 
1 Papert) 教授 の 指導 の 下 , MIT (マサ チュ ー セ ッ ツ 工科 大 学 ) で 産声 を あげ た コン ピ 
ュー クタ ク 言 語 で す . Logo の 開発 に は MIT の 人 工 知能 ( AI = Artificial Intelligence ) 研究 グル ー 
プ が 全面 的 を バッ クア ッ プ を 与え た と 言わ れ て お り , Logo の 言語 構造 の いた る と ころ に 役 ら の 
研究 の 足跡 を 見 る こと が で きま ます. そう し た 意味 も 含め , 本 章 で は Logo と は いっ た い ど ん な も の 
で ある か を , その 背景 , 子 備 知識 , 実際 の オペ レー ショ ン の 順に 説明 し て ゆく こと に し まし ょ う . 


g-] LO 互 O の 全体 像 


( 1 ) 卓 抜 し た 教育 用 言語 と し て の Logo 


Logo の 存在 を 高 名 な も の と し た 要因 の ひと つと し て , 教育 用 言語 と し て の 特性 が 挙げ られ ま 
す . コン ピュ ー タ , 特に パソ コン を 用 いた 幼児 教育 は 近年 で は 非常 に 盛ん に を りつ つ あ り ま す . 
し か し そう し た 教育 プロ グラ ム の 大 半 は , 近い 将来 の 偏差 値 偏向 教育 の 興隆 を 見 越し て か , 子供 
を パプ ロフ の 大 に 見 た て た か の よう に , 条件 反射 的 学習 に 重き を 置い た も の ば か りー 一 子供 の 創 
造 性 で ある と か 自発 的 な 探究 心 を ど . どこ か に 置き 忘れ られ た 失 さ そ と あります. この こと は , ひび 
と つ に は , 子供 に 対し て コン ピュ ー タ が 絶対 的 を 権威 者 と な り , 大 所 高 所 か ら 知 識 な り 情 報 を 押 
し つけ て いる と も 考え られ る で し ょ う . これ こそ Logo が 最も 忌み 嫌う こと で あり , 型 に は まっ た 

画 一 的 な 人 間 を 生み だ す 原 因 と な っ て いる の で す . 

Logo の 理念 で は , 子供 は コン ピュ ー タ に 教わる の で は な を く , 子供 が コン ピュ ー タ に 教え 込 
と で , コン ピュ ー タ , つま り Logo と 共に 子供 が 学習 し て ゆく こと が ベス ト で ある と 考え ます . で 
すか りら 子供 た ち は Logo を 使っ て 何 か を する こと で , プロ グラ ム と は どん な も の で ある か を 学ぶ 
と 共に , プロ グラ ム そ の も の の 本 質 で ある , も の ご と を 考え る 手順 で ある と ヵ 

で き 


理 の 立て 方 と いっ た “学習 の 方 法 ” を , 自然 に 身 に つけ て ゆく こと が て の で す 。 隆介 


2 章 Logo 初 級 講座 


か ら 考 えて みる と , 子供 は Logo を 通し て も の ご と の 仕組 みや 世界 の 成立 を , 無理 な く 体 得 し て ゆ 
く こ と に な る の で す . 


ター トル ・ グ ラフ ィ ッ クス 

Logo ニタ ー ト ル ・ グ ラフ ィ ッ クス と 言わ れる ほど 有名 な の が , Logo 独 得 の ター トル , つま り 
カメ が 図形 を い て ゆく 〈 ユ ニー ク な グラ フィ ックス 手法 で す . ター トル と いう 具体 的 な 第 三 者 が 

画面 上 に 現れ て , プロ グラ ム の 結果 を 即座 に 実行 (実演 と 言う べき か ) する た め に , 目的 の 国 形 
を 描か せる に は 次 に 何 を きせ た らち よい か , が みず か ら の な か て で 判定 で きる た め 、 プ ログ ラム と いう 
行人 自体 に 親近 感 を 抱け る よう に な り ま す . また 常に 画面 上 で 健気 に 動く ター トル に 対し 感情 移 
入 が 生ま れ , Logo と の 対話 の 中 に 暖か さ が 生 し る 効果 も 見 逃 せま せん (実際 に この カメ ァ さ ん , 存 
外 可 愛 い も の で す . BASIC の エラ ー メ ッ セ ー ジ な ん ぞ よ り , は る か に 親近 感 を 把 け ます 3). 

コン ピュ ー タ の お も し ろ さ に 単 有 直入 に 没頭 する に は , や は り グラ フィ ックス の 世界 が 一 番 の 早道 
で し ょ う . し か し これ まで の グラ フィ ックス の 手法 つま り 画面 を X 軸 と Y 軸 に 見 立て て 描画 す 
る 方 法 で は , プログラム の 手順 な り 論 理 構造 な り を 覚え る まで 、 な まな か な ら ぬ 苦労 を 強い られ 
た も の で し た (いっ た い , どう や っ て 幼児 に 関数 を 教え を たら よ いも の や ら ……)。 ター トル ・ グ ラ 
フィ ックス で は , ター トル に 角度 と 距離 を 与え て や れ ば , 少な く と も 最小 の 要件 は 満た し た こと 
- な り ま す . た と えば ひし 形 を 描い た り 一 点 の 角 を 中 心 に 少し ずつ 図形 を 回 転 き せる よう な 場合 , 

0g0 と 従来 の グラ フィ ックス と で は , その 手順 に 法 泥 の 差 が つき ます . 基本 的 な クー トル ・ グ ラ 
フィ ックス の コマ ンド は , 実に 簡単 で あり , 命令 と 実行 が ひと 目 で わか る よう に 作ら れ て いる の 
で す . だ か ら ク ター トル を 動か し て 図形 を 描こ う と する 者 は ,、 プロ グラ ムク グ 構造 に 対す る 理解 の 促 

進 を , 画面 上 を 動く ター トル を 通じ て 得る こと が 可能 と な る わけ で す . 

一 般 的 に 考え て 、 コ ンピュータ で プロ グラ ミン グ を 覚え よう と する 人 が , 最初 に つま ずい て し 
まう の が , 不毛 と も 思え る ほど 膨大 な 数 の 例題 を こなす と いう , 退屈 に し て 面倒 臭い 関門 を く ぐ 
ら ね ば な ら な いこ と で し ょ う (その 行為 に 快感 を 覚 を る 人 も も ちろ ん いる が …… り .。 し か し Logo 
の 場合 , タ ー ト ル ・ グ ラフ ィ ッ クス を まず 最初 に 覚え て し ま う と , 自分 で 作成 し た プロ グラ ム に 
対し , 変数 、 演算, 条件 判断 , 再帰 呼 出し , と いっ た テク ニッ ク を 決 々 と 付加 し , プロ グラ ム 自 
体 を 拡 し て ゆく こと が で きま す . つ まり Logo を 学ぶ 人 の 進歩 に 合わ せ , プロ グラ ム も 同時 に 進 
化し て ゆく 《 と いう わけ で す . し か も そう し た 進化 の プロ セス で , プロ グラ ム の 構造 や 組み 立て 方 
を , わか り 易い 目 に 見 える 形 で 提示 し て , 教え 学ば せ て くれ る の が ター トル ・ グ ラフ ィ ッ クス の 
世界 で す . 学ぶ 側 と コン ピュ ー タ が , 共に 進歩 し て ゆく と いう Logo の 理念 が , ここ に 生か る れ て 
いる の で す . 
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2-1 Logo の 全体 像 


( 2 ) 進化 し た 言語 と し て の Logo 


Logo を 用 いた プロ グラ ミン グ で は , BASIC と は 異な っ た 概念 が 導入 され て いま す . つま り 
Logo の プロ グラ ム は , 移 体 が ひと つの 大 き な プ ログ ラム と し て 成立 し て いる の で は な く 〈, 一 つ ひ 
と つ を 個別 に モジ ュー ル 化 し , 独立 し た プロ グラ ム (手続 き ) の 組合 せ と し て 成立 し ます . Logo 
で は この モジ ュー ル が 次 々 と プロ グラ ム と し て 実行 を 続け る こと に よっ て , 目的 の 仕事 を 達成 す 
る わけ で す が , これ を プ ブログ ラム の 構造 化 と 呼ん で いま す , また , 各々 の 独立 し た プロ グラ ム ( モ 
ジュ ー ル ) を プロ シー ジェ と 呼び , 名 前 を 付け る こと が 可能 で す . Pascal や LISP , FORTRAN 
と いっ た 言語 で も この よう な , プロ グラ ム を 独立 し た 手続 き の 集大成 と し て 構成 する こと が で き 
ます が , パパ ソコ ング の 標準 言語 た る BASIC と な る と , こん な 芸当 は と て も で きま せん . BASIC で 
は 大 き な 問 題 ,。 つ まり プロ グラ ム 生 体 を 考え る た め に 問題 を 細分 化し , その 後 こ れ を 構成 する こ 
と が 困難 な 構造 に な っ て いま す , で すか ら BASIC て 書か れ た 長い プロ グラ ム を 見 て ゆく うち に , 
GOTO 命令 が リス ト の な か に 大 量 に 入っ て いた りす る と , いっ た い 何 を 実行 する プロ グラ ム で あ 
る か が わか ら な く な っ た り , 変数 の 設定 が 何 を 意味 する の か が , さっ ぱり 見 当 が つか な いと いっ 


た よう な 事態 に 往々 に し て 陥り ます (と ほ と し て 自分 で 書い た プロ グラ ム で さえ わか ん な か っ た 
Pe24 ). プロ グラ ム を モジ ュー ル 化 で を る と いう Logo の 特性 は , プロ グラ ム に 実行 きせ た 


い 目 的 に 従っ た 全体 の 組み 立て が 容易 に で を る と いう メリ ッ ト を 生み , この 結果 アデ バッグ の 際 の 
手順 が 大 幅 に 簡 遇 化 きれ る と いう 効果 も 生ま れ て くる わけ で す . 

また Logo の 特徴 と し て , プロ シー ジェ の な か で 自分 自身 (つま り 同 じ 名 前 の プロ シー ジェ ャ です 
な を) を 呼び 出し て 実行 させる, リカー シ プ コ ー ル (再帰 呼出 し ) と いう 機能 が 挙げ られ ます .。 こ 
の 機能 は 再帰 的 と 呼ば れる 特定 の アル プリ ズム (た と えば 数 学 で 教わる 河 化 式 で 表せ る よう な も 
の ) を プロ グラ ミン グ す る 場合 に た い へ ん 役に立つ も の で , プロ グラ ム の 構造 を より 簡単 ・ 明 藤 
に し まま, 


( 3 ) 人 工 知能 型 言 語 と し て の Logo 


人 工 知能 型 言 語 と し て 名 高い LISP の 機能 リス ト 処 理 一 一 を , Logo は ずい 分 受け 継い 
で いま す . 人 工 知能 に 欠か せな い 機 能 が 言葉 , すなわち 文字 の 処理 能力 で す . こみ 文字 を 処理 す 
る 基本 が 。 リ スト 処理 な の で す . リス ト 処 理 に つい て の 詳細 は 4 章 で 述べ る こと に し て , ここ で 
は その 基 本 を 簡単 に 説明 し て お きま し ょ う . 

まず は , ワ ー ド と いう 言葉 か ら . 文字 が いく つか つなが っ た も の を ワー ド と 呼び ます . た 


abc 
A12CD 
143 


な ど は ワー ド で す . そし て , ワー ド を いく つか 並べ て 。 [ ] (プラ ケッ ト ) で くく っ た も の が り 


の ア ) 
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Rad 37S6 た は 。 


[A B C] 
[Sony SMC] 


が 語 で す , さら に いく つか の リス ト を まとめ て 新た に リス ト と し て 扱う こと も で き 、 


[ [CBS Sony] SEIKO] 
[MIKA [ [MAMI] SAEKO ] ] 


と いう の も リス ト に な り ま す . 

こう いっ た リス ト を いろ いろ と 操る の が リス ト 処 理 な わけ で , この 説明 だ け で は よく わか ら な 
いで し ょ う が , これ で 人 工 知能 っ ぽい ぃ いこ と が で きる わけ で す 、 

Logo の こう し た 側面 は , 教育 用 言語 と し て の こと ば 遊び 等 の 利用 法 の 他 に ., 情報 検索 で ある と 
か デー タベース の 構築 な どの , より 高度 な 応用 に 対し て 新しい 展望 を 与え ある こと に な り ま す . 


( 4 ) Logo の 位置 付け 


さき て, いろ いろ と Logo の 効能 書き を 並べ た て て きま し た が , ここ ら で ひ と つ , 千 論 め いた も の 
を 出し て お きま し ょ う . それ は , Logo と いう 言語 は 実に 使い 勝手 だ よい (最近 の コト バ で 言え ば , 
ザー フレ ンド リー) と いう こと で す , た と えば エラ ー メ ッ セ ー ジ の 出し 方 ひと つ に も そう し 
た 片鱗 が うか が えて , 


| dont know how to abc (abc な ん て プロ シー ジャ は , 定義 &8 れ て な いか ら 知 ら な いよ ) 
Not enough inputs to box in box: (box の プロ シー ジャ に 渡す 引数 が 足り な い ぞ ) 


と いっ た 具合 に ,。 エラ ー を 具体 的 に 指摘 し て くれ る の で す . この よう な エラ ー メ ッ セ ー ジ ひと つ 
を 見 て も , Logo の 開発 理念 に こめ られ た , “学習 と は 答え や 答え を 得る 方 法 を 入手 する の で は な 
《, 間違い を 検証 し プロ セス を 体得 する こと で 考え る 方 法 を 手 に 入れ る も の ” と いっ た 変 勢 が 
見 られ ます . し か も Logo は 幼児 で も 使う こと の で きる 言語 で は あり ます が , その 内 に 秘め た パフ 
ォ ー マ ンス は 非常 に 高く 、 あ ら ゆ る 世代 の 人 が , あら ゆる 目的 で 活用 する こと の で まき る 言語 で も 
あり ます . Logo が 使う 人 と 共に 進歩 し て ゆく 賢い 言語 だ と いう こと を 全 頭 に お き , 積 接 的 に 活用 
し て 欲し いも の で す . 

な お , Logo の 理念 を より 詳し く 知り た い 方 に は, セイ モア ・ パ パー ト の 著作 『 マ イン ド ・ ス ト 
ー ム 』 の 一 読 を お 勧め し ます . 


て 
C 


2-2 Logo に 触れ る 前 に 


-O LO 五 O に 航 れ る 前 に 


実際 に Logo に 触れ る 前 に , Logo に つい て 基本 的 を な こと が ら を 述べ て お きま し ょ う . 退屈 だ と 
いう 方 ちい らっし ゃ る で し ょ う が , 次 の ステ ッ プ へ の 基礎 力 差 成 と いう 意味 で , ここ は 少し の 間 


抱 し て 読破 し て くだ さい . 
( 1 ) プロ ンプ ト 状 能 


Logo が Sony Filer の レス テム ノニ ュー か ら 呼 び 出さ れる と, 画面 2 - 1 の 状態 で 少し の 間 止 ま 
り , 次 に 画面 2 - 2 の よう に 画面 が 消 る れ , 左上 に ? が 表示 され , が 点 減 し ます . た だ し , Logo 
と ファ イル を 同時 に 呼び 出す と , 画面 2 - 3 の よう な 画面 と な り ま す . 


Uae1come to 


Dr. Logo (tm) for Sony SMC-777, Ver 1.4 
Copyright (c) 1983, Digita] Pesearch 
Pacific Grove, Ca] i 和 focnia 


Dr . Logo is a trademark of 
Digital Research 


Please Mait 


画面 2-1 Dr.Logo 初 期 Wait 画 面 


し 2 り elcome to 


Dr . Logo (tm) ffor Sony SMC-777。 Ver 1.4 
Copyrioght (c) 1983, Digita]l Research 
Paci 和 fic Grove, Cal ifornia 


Dr . Logo is a trademark of 
Dioital Research 


Please Mait 


画面 2^-2 テキ スト 初期 画面 画面 2-3 初期 プロ ンプ ト 


この ? を プロ ンプ ト と 呼び の 方 は カー ソル と 呼び ます . この プロ ンプ ト が 表示 され て いる 
状態 を 通常 の プロ ンプ ト 状態 (そう で な い の も ある ) と 呼び ます . こ の と き Logo は キー ボー ド か ら 
の 命令 の 入力 を 受け 付け , 何 か 入力 し て や る と それ を 実行 し また 通常 の プロ ンプ ト 状態 に 戻る 
こと に な り ま す . た だ し この と き に 入力 し た コト バ が Logo に 理解 不能 で あっ た 場合 は 、 わ か らん . 
と エラ ー メ ッ セ ー ジ を 表示 し て 通常 の プロ ンプ ト 状態 に 戻り ます (以下 単に プロ ンプ ト 状 態 と 書 
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いた ら , 通常 の アロ ンプ ト 状 態 を 指し ます ). ま 7, と に か く 何 か 入力 し て み ま し ょ う . 
?123456 6ceeeeeeee 


デタラメ に いく 〈 ら 数 字 を 入力 し て も , カー ソル は 点 減 し た まま 一 一 つま り , Logo が この 数 字 
の 羅列 を どう し た も の か , 判断 に 苦し ん で いる の で す ., で は , 万 国共 通 対 コン ピュ ー タ 命令 手順 
で ある と ころ の [を 押し て み ま し ょ う ). 


?123456 | 
123456 
? 


と 表示 され ます . どー すり ゃ いい ん だ , と プロ ンプ ト と カー ソル が 聞い て いる 状態 で す 。 し か ら 
ば 今度 は 1 の キー か ら 指 を 離さ ず , 押 し っ 放し に し て み ま し ょ う . 1 が ずら ずら と 並び , 最後 に 
音 が 出 ます . 画面 上 の 各行 の 終り に は ! が 出 て いま す が , これ は 画面 上 の 行 を 変え る と き に Logo が ' 
出す サイ ン で す . そし て 最後 に 出る 音 は ,、 これ 以上 何 も 受 け 付 けら れん , と Logo が 悲鳴 を あげ て 
いる の で す . つま り Logo で は ? の 後に 最大 129 文 字 を 受け 付け る こと が で き , それ 以上 の 入力 は 
で き な い こと を 意味 し ます ( 暇 な 方 は 1 の 数 字 を 数 を て くだ さい ). 


?123456 

123456 
?11111111111111111111111111111111111111! 
111111111111111111111111111111111111111! 
111111111111111111111111111111111111111! 


1111111111111 


画面 2-4 1 の 竣 列 


次 に アル ファ ベッ ト を 入力 し て み ま し ょ う ). 


? abcde 


1 dont know how to abcde 
abcde な ん ぞ 知 らん と の た も う て お り ま す な . で は , 


? konnichiwa | 


| don't know how to konnichiwa 


あい さる つも 知ら ん と 抜か し より ます . これ は 別に Logo が 礼儀 知ら ず と いう わけ で は な く ( も っ 
と もら , 教え て や れ ば 礼儀 も 覚 ん る の だ か ら , ある 意味 し ゃ 礼儀 知ら ず か も ), 前 述 し た と お り , 理 


2-2 Logo に 触れ る 前 に 


解 で きる コト バ (命令 ) の み 実 行 し て プロンプト 状態 に 戻り , 理解 不能 な 場合 は エラ ー メ ッ セ ー 
ジ を 出し て プロ ンプ ト 状態 に 戻る と いう , し 、 っ 

し か し , 最前 に 試し た 数 字 の と き は , Logo は て ラー メッ セー ジ な ど 出 し ませ ん で し た . この こ 
と か ら 類 推す る と , Logo は 数 字 と いう コト バ は 知っ て いる も の の , 文字 の 方 は 明確 な 命令 に な っ 
て いな けれ ば 受け 付け て くれ な い , と いう こと に な り ま す 。, 実験 し て み ま し ょ う . 


? 1234abcd|.」 
1234 


1 don't know how to abcd 


や は り , 数 字 は わか る けれ ど , abcd だ け で は 文字 の 方 は 理解 で き な い と 申し て お り ま す . つま 
り , Logo で は 命令 を 受け る と を は , 文字 で な 〈 て は 受け 付け な いと いう こと で す , ちな み に , 


7 大 


? abcd1234|.」 
1 don't know how to abcd1234 


つま り , abcd1234 の 科 部 を 文字 で ある と 判断 し て し まう こと を 意味 し ます , 


( 2 ) プリ ミ テ ィ プ ブ 
Logo が 最初 か ら 知っ て いる コト バ (命令 語 / を プリ ミ テ ィ プ と 呼び ます . Dr. Logo に は 合計 

156 種 類 の プリ ミ テ ィ プ が 用 意 さ れ て お り , これ を 組み 合わ せる こと で , Logo に 様々 な 芸当 を 実行 

させ る こと が で きる の で す . この プリ ミ テ ィ ア , Dr. Logo で は 全部 小文字 で 表現 きれ ます , まず 


は | 裁 ほ ーー を 解除 し て , 小文字 で て 入力 で を る よう に し ます 。 
最初 に , 画面 を 掃除 する プリ ミ テ ィ ブ を 試し て み ま し ょ う . イタ ズラ 書 ほ で , ずい 分 余計 を 文 


字 が 多く な り ま し た か ら …… 8 
? creartext | 


1 dont know how to creartext 


し っ か り エ ラー メッ セー ジ 。 本 当 は cleartext な の で す ョ . で , で 訂正 の や り 方 を …… 
まず [H|( ヘ ルプ キー) を 押し て みて くだ きい. 画面 に 直前 に 入力 し た も の が 出 て ほ き て , カー ソ 
ル が その 右端 に いま す . 
? creartext 


て カー ソル を 左 へ 動か し て c の 隣 の r の と ころ へ 持っ て ゆき [L| を 押し て くだ さい . 


CSC 


? clreartext 


Logo で は 常に カー ソル の 左 に 文字 が 挿入 され る よう に な っ て いて , この よう に な り ま す 、 


SW ww 1 
NRNvNSSSSW き SNY ふ S、 MM NN NN 洛 い 、 し に 稚 W し で ぬ ま し ょ ゅ す 、 
Ns 
NSK . 放 
きこ や そ こみ Nat ささ 間 生 し で き 屋 に 坦 某 ぶ 筐 ふれ ます 、 さ 入 数 の きい プリ ミチ ィ 1 


Aa SS、 こ の ささ 電 生か ぶ 笛 昔 さく で いさ の で す 、 
きる 、 7 ミキ ャ すき 侍 き 人 る っ で ふる こさ た し まし ょ 3?) 


Yawnt ペペ ー ペ NWwmmwal 
Smwwecmwe 


ミ す で 宙 失 き 意 ミ ぐ で (まま し た 、 wmme さい う の は その 状 に ある [ ] (プラ ケッ ト ) て で 囲ま れれ 
- 人 で 斑 王 入 開 e さ ミュ リポ ミオ ィ イー で すか ふら デ ネ テ ッ ト の 中 が 大 文字 で あろ う が カ タカ ナ で あ 
3 3 ま 一 紀生 ご で ず 生 きそう この wwmt に は pr こい う 生 縮 形 が 用 意 さ れ て いま すか 


ーー 

ョ ゴー ゴマ ザキ アー 5 枯 開 思 コ ーー ニタ 覆 ほ ミー た これ は Logo が アリ ミチ 
2Wsp の rme 吉 ご ネ ニ な っ 電王 理 ディ ミィ ジブ ログ ラム 店 
あて ォ ーー の 本 9 笠 =ー テー 

ーー 人 ーー 


一 ーー デー 


"in IIIIINIT' ププ デア 修二 /) チ ィ ア ) 者 灰 
ンク デ ず 〒 本 gi レオ CS 』 アリ ディ ア 」 軒 


の の ン あ アイ を あま" デ ブー テッ 
20 プシ ァ チ プ 。/ ェ ーー の 原 に 2/ リ アティ アグ 請 
の ア 。/ 。。 2 アプ / アノ ブチ “(の 大 ガク あり # す 本 


PF。 


9 が ンプ アァ ン ア 。 


ンー の 2 の の WW の アソ プア // タ 4 一 77 ./ 7 (メチ 
7 275222 / 24727 /09724】 


(4 ) 家 赤 画 


clearlext を 実行 する と, 瑞 包 ほぼ グプタ ンプ ます と カ ーー ジル を の 7,。 ング 開 輩 多 多 皮 を ダダ 


メタ / ー 2 < 
表 赦 其 誠 た 好 び ます, ル 24 の は と の クチ キク リラ クラー ンク 能 に. グラ ラ ィ ッ ク を を 芝 劣 を ク グ ア デ ィ < 
ノ 2 / アデ ーー 
ッ ク 表 志 劇 府 を 朝 っ イ り ,。 あら を 友 方 を 多少 乏 を テク ケ ク グラ ント グーン を 多 『 却 作 - 
れ で は この 2 つの 画 克 区 索 / つ ウッ イ , 次 を 存 有 っ ン イ 説 基 レ イ 形 2 こと 抱 し あし ティ 
テキ スト スク リー シ 
テキ スナ スク リー ング の 』】 有 有 は 鈴 女 錠 。 を だ し 勉 字 お に め 才 才 の ドーー ク の 務 デ テラ 
実質 上 は 29 女 字 と な り ま すず す , 
[0 0] 3 お 9 の 、- 2 
2 ッ ン と 夫 1 = ココ ュ ン 
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?setcursor [10 10][」| 


プロ ンプ ト と カー ソル , あっ と いう 間 に す っ 飛ん で ゆき ます . た だ し よく 注意 し て 数 えて みる 
と , プロ ンプ ト と カー ソル は 上 か ら 12 行 目 , 番地 で いう と 11 行 に 出 て いる こと が わか り ま す . こ 
れ は [10 10] の 座標 に カー ソル が 飛び , 次 の 瞬間 に 改行 し て し まっ た こと を 意味 し ます . 本 当 か 


どう か 確認 し て み ま し ょ う . 


?ct setcursor [10 10] pr [ホン トウ カ ?]|』 


画面 2-5 ホン トウ カ ? 


ホン トウ カ ? の ホ の 宇 が [10 10] の 位置 に ある こと が わか り ま す . つま り カ ー ソ ル が [10 10] 
の 位置 に 飛ん で print 命令 を 実行 し 。 その 後 プ ロン プ ト 状 能 に 戻っ た と いう 証 換 で す . な お , こ の 
よう に いく つも の 命令 を え ス ペー ス で 区 切っ て 一 度 に 入力 で きる こと も 和 覚え て お いて 《 く だ さい . 

で , せっ か く 〈 print 命令 が 再 登場 し た の で すか ら , これ に ちな 


ろ 
関す る 大 切な プリ ミ テ ィ プ を 紹介 し て お きま し ょ う . 


? type [ワイ ワイ ] type [ガヤ ガヤ ]|.」 
ワイ ワイ ガヤ ガヤ 


これ を print 命令 で 試し て みる と , 


? print [ワイ ワイ ] print [ガヤ ガヤ ] |.」 
ワイ ワイ 
ガヤ ガヤ 


2-2 Logo に 触れ る 前 に 


えら く 〈 外 い ます . print は 文字 を 表示 し た あと に 改行 する の に 対し て , type は 改行 し な い 命令 な の 
で 
この よう な print, type と いう 命令 と 似 た プリ ミ テ ィ ブ に , show と いう も の が あり ます . 


? show [ハラ ヘッ タク ] | 


[ハラ ヘッ タク ] 
つま り , プラ ケッ ト ま て 表示 し て し まう の が show な の で す . な お , プロ ンプ ト 状 胡 で あれ ば , 
? [ハラ ヘッ タク ] 
[ハラ ヘッ タ ] 
と いう よう に , show を 自動 的 に 補っ て 表示 し て くれ ます . 


と ころ で て, 今 ま で ずっ と 画面 上 の 文字 の 色 は 白 だ け で し た . 文字 に 色 も 付け られ な い の で は , 
Logo の 実力 が 妖 わ れ か ね ませ ん . そこ ニア, 


? setalpha 4 


プロ ンプ ト が 赤く な り ま し た . これ で , 以降 の 文字 は 全部 赤 で 表示 る され ます . すでに お わか り 
の よう に , setalpha は 文字 の 色 を カラ ー コ ー ド 4 , つま り 赤 に 指定 する た め に 使っ た プリ ミ テ ィ プ ブ 
で す . また , こ の 文字 色 の 指定 の と きま, 8 一 15 の 値 を 入れ て みる と , 指定 値 一 8 の 番号 の 色 と な り 
(setalpha の 場合 の カラ ー コ ー ド は 0 一 7 のみ), 該当 の 色 の つい た 文字 が 点滅 を 始め ます . 


表 2-1 テキ スト スク リー ン の カラ ー コ ー ド 表 
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スプ リッ トス クリ ー ン 
文字 ば か り 見 て いて も お も し ろく 〈《 な い の で , ここ ら で 有 名 な ター トル に 登場 し て も らい まし ょ 
を 押し て 《 だ さい . する と 画面 2-6 の よう に な り ま す が , 真中 に 出現 し た 矢印 めい た もち 
の が ター トル で , カー ソル は 画面 の 下 か ら 5 行 目 の と ころ に 表示 され て いま す ,. これ は テキ スト 
と グラ フィ ックス が 重なっ て いる 状態 で 、 スプリット ス クリ ー ン と 呼ば れ ま す . この 状態 で の テ 
キス ト は 下 の 5 行 分 だ け で す が , も ちろ ん 変更 は 可能 で す . 


? setsplit 10[ 


テキ スト は 10 行 分 に 拡大 され まし た . つま り setsplit で テキ スト の 大 き さ を 変更 で きる と いう 
こと で す が , この こと は の ち は ど 詳し く 説 明 し ます . ま た , テ キス トス クリ ー ン 状態 に 戻し た いと 
き は [IF 1| を 押し ます . 


フル スク リー ン 

画面 全体 を グラ フィ ッ ク 表 示 の み に 使 う 画 面 設 定 で 、 Mt この 状態 に な り ま 

す . 文字 や カー ソル は 表示 され ませ ん が キー ボー ド か ら の 入力 は 受け 付け て いま す . 試し に 何 か 
デタラメ を 入力 し て みて 〈 だ さい 、. PIN め ス プリ ッ ト ス クリ ー ン に ぁ ヵ 
て し まい ます が , と に か 〈 入力 さ れ た こと は わか り ま す . 

ろ で ファ ンク ショ ン キ ー を 使わ ず ,、 プリ ミ テ ィ プ ブ て で 画面 状態 を 変更 する こと も で きま す . 


ヽ 『 


ロ 


が 
文生 


(で 
も と 


に 


textscreen 
Splitscreen 


fullscreen 


の 3 つ で ,。 それぞれ テキ スト スク リー ン 、 ス プリ ッ ト ス クリ ー ン , フル スク リー ン の 状態 に 画面 
を 設定 し ます . 

論理 構造 を 持つ 言語 と し て の Logo の 成立 を 本当は ここ いら て 説明 し て お か な けれ ば な 
い の か も し れ ま せん . し か し , そん な 七 面 倒 臭 い 話 より , や は り Logo は 使っ て 楽し い コ トバ で あ 
る , と 体感 する こと の 方 が 大 事 だ と 考え ます (Logo の 開発 思想 も 、 ほっ と コム ズ カ し い 事 を 悩み 
つつ 学習 せい と は 言っ と らん で し ょ う , きっ と ). で すか ら こ こ は 独 断 で , まず Logo の 楽し さる を 
味わっ て も ちい, し か る の ち (も し く は その プロ セス で ) Logo の 構造 な り 論 理性 を なり を 把握 し て 
うに し た いと 思い ます 。 で, 次 に いよ いよ , Logo 入門 の 意味 も 含め 、 ター トル ・ グ ラフ ィ 
く を 試し て みる こと に し ます 。 


N 9 て 
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g-3 ター トル ・ グ ラフ ィ ッ クス 入門 


よう や く , 実際 に Logo を 使う と ころ に た どり 着き まし た . ター トル ・ グ ラフ ィ ッ クス は 前 述 し 
た よう に , 従来 の グラ フィ ックス と は 違い, ター トル と いう 明確 な キャラ クタ (と 言っ て よい も 
の か だ が mr ) が , 画面 上 を 天 り 回 っ て 描画 する こと が な に より の 特徴 と な っ て いま す . BASIC 
等 に よる グラ フィ ックス と 比べ て 手順 自体 が 格段 に 易しい うえ , ター トル が 描い て ゆく と いう こ 
と で , 完成 に 至る プロ セス を 有 目 で 確か め ら れる た め , グラ フィ ックス に 対す る 習 元 の 向上 が 望め 
ます , そし て , な に より 有難 い の は , クー トル ・ グ ラフ ィ ッ クス を 試み る こと で , Logo に お いて 
要求 され る 手順 の あら か た を 学ん で し まう こと が で きる の で す . まず は 最も 簡単 な グラ フィ ッ ク 


ス か ら 一 一 その た の に は , クー トル を 呼び 出 き ね ば な り ま せん . 画面 に 向っ て , 


「 カ ノ , 出 て こい 」 
と 声 を か けつ つ , [F2 を 押し て くだ を さい. クー トル ・ グ ラフ ィ ッ クス の 始ま り で す . 
( 1 ) カメ , 動 け ! 
前 進 ・ 後 退 

クー トル を よく 見 て くだ さい , 鋭 っ た 部 分 が 前 (つま り 頭 ) で , 前 進 す る の は この 方 向 で す . 
この クー トル を 動か す オ マジ ナイ で ある プリ ミ テ ィ ブ は fd (forward の 短 緒形 ) で あり まし て , 
この fd に 加え て ター トル が 何 歩 進 ん だ も の か を 引数 の 値 と し て 与え て や る と , 前 進 を 始め る の で 
す .。 それ で は いよ いよ , 


?fd 50[」| 


カメ さん , 歩い て ゆ ほ まし た か ? この fd 50 と いう 形式 に つい て 考察 を 試み ます と , Logo が fd な 
る プリ ミ テ ィ プ を スペ ー ス と スペ ー ス の 間 で 読み 取り , か つ 決 の 50 を プリ ミ テ ィ ブ の 引数 と し て 
解 息 し た こと で の ター トル 50 ス テッ プ 分 の 前 進 ,。 と 定義 で きま す . で すか ら こ の と ほ き , 


fd 59 


画面 226 スプ リッ トス クリ ー ン 初期 画面 
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?fd50|[」 


| dont know how to fd50 


に な る の は , fd50 と いう プロ シー ジャ が 定義 きれ て お ら ず , し か も プア プリミティブ に fd50 が 存在 し な 
いこ と ゆえ の 1 dont know で ある こと が わか り ます. 

で は , 次 の プリ ミ テ ィ ア . 進む 一 方 で は レミ ング の 行進 と 変り ませ ん の で 、 ひ と つ バ ッ ク さ きせ 
て も と の 位置 に 己 し て み ま し ょ う .50 歩 前 進 し た の で すか ら 50 歩 分 後退 すれ ば よい わけ で すか ら , 


?bk 50 


も と の サヤ に 収まり まし た ね . この bk, 御 想像 の と お り back の 短縮 形 ( も ちろ ん back や for 
ward で も その まま 使え ます )、 タートル が 前 を 向い た まま 後退 し た こと で 、 本 当 に バッ ク し て い 
る こと が わか り ま す 。 

ここ で 気 が 付 《 の は , ター トル は も と の 位置 に 戻っ て も 、 描 いた 線 は その まま 残っ て いる と い 
う こと で す . これ は Logo が 起動 し た と き に ター トル の 持つ 描画 力 が 規定 され , 常に 線 を 引い て い 
る 状態 に 設定 され て いる こと を 意味 し ます . つま り fd 50 て 直線 を 引い た ター トル は , 帰り 道 の 
bk 50 の 途 , 直線 を 引き な が ら 戻 っ て きた と いう わけ で , この 状態 を pendown (pd) と 呼 
が ます . 

ター トル を 湊 の 仕事 に 移り し せ たい の で す が , どう も 以前 に 描い た 50 歩 分 の 線 が 邪 成 . そこ で , 


? clean| | 


この プリ ミ テ ィ プ は , ター トル の 位置 や 向き は その まま で , グラ フィ ッ ク 表 示 の み を 消す 働き 
を する も の で す . clean と 似 た プリ ミ テ ィ プ に clearscreen (cs) と いう も の が あり ます . clean と 
cs の 違い は , 前 者 が グラ フィ ッ ク 表 示 を 消す だ け な の に 対し , 後者 は クー トル を 初期 の 位置 , つ 
まり 真 中 に 戻す 働き も 併せ で 持っ て いる こと で す . この ター トル の 初期 位置 で ある 画面 中 央 を ho 


?fd 59 2fd 59 
?bk 59 ?2bk 59 
2ciean 


2-3 ター トル ・ グ ラフ ィ ッ クス 入門 
me 位置 と 言い b、 タート ル を 単に そこ に 戻す に は , home と いう プリ ミ テ ィ ブ を 使い ます . で は , 
この 3 者 の 人 違い を 実際 に 見 て み ま し ょ う . 


?fd 50[J 
? clean|.」 


- ト ル は 画面 中 央 か ら 50 歩 の 位置 に いて , 描線 は 消さ れ て いま す . 次 に , 


べべ 


?fd 50|.」 
? home[』 


ター トル は 一 度 50 歩 きき まで て 進み , 光 い で home 位置 に 戻っ て は 来 ま し た が , し か し 描線 は そ 
の まま で す , home と いう プリ ミ テ ィ ブ に , グラ フィ ッ ク 表 示 を 消す 機能 が な いこ と を 意味 し ま 
す . それ で は 3 番目 , 


?fd 50[」 
? cs[』 


クー トル は 50 歩 進み , cs と 共に グラ フィ ッ ク 表 示 の 消滅 に 乗 し て home 位置 に 戻り まし た . 


2?fd 59 
? 和 fd 59 2 和 fd 59 ?2fd 59 
?c] ean ?home 2? こら 5 
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ペン に つい て 

と ころ で , これ まで は ター トル が 線 を 引き っ ぱな し の 状態 . つま り pendown の 場合 に 限っ て 話 
を 進め て きま し た . こ こら で 線 を 引か な い 場 合 , 要する に ペン を 画面 か ら 離 し た 状態 で ある penup 
(pu) を 試し て みる こと に し まし ょ う . 


? pu 
?fd 50 


ター トル は ペン を 持ち 上 げた まま , 線 を 引か ず に 50 歩 前 に 進み ます . そし て home 位置 に 戻す 
の で すず が 直し じみ ペン が 上 が っ た まま で す の で , 
?bk 50[ 


? cs 
? home | 


?pu 2pu ?P ロ ?P ロ 
2fd 50 2fd 59 ?fd 59 ?fd 59 
2bk 59 2cs ?home 


の どれ で も 同じ 結果 , すなわち 何 を や っ て も home 位置 に 帰っ て 来 ます . クー トル が 戻っ た なら, 
忘れ ず に ペン を 下ろ きせ て お きま し ょ う . 


? pd|.」 


と ころ で , ター トル の 持つ ペン , いま は 白い 線 し か 描き ませ ん が , イン ク の 色 を 変え る こと が 
可能 で す . この イン ク グ の 人 色 , 通常 は 16 色 に 定め られ て お り , setpc と いう 色 変 更 用 の プリ ミ テ ィ プ ブ 
で 機能 し ます (た だ し カラ ー パ レッ ト 装着 時 は この 限り に あり ませ ん ). 標準 の 16 色 と カラ ー コ ー 
ド の 対応 は 表 2 - 2 の と お り , setpc に この コー ド を 引数 と し て 与え る こと で , ター トル の イン ク 色 
を 変え られ ます . 試し て み ま し ょ う . 


2-3 クー トル ・ グ ラフ ィ ッ クス 入門 


表 2-2 ベン の カラ ー コ ー ド 表 


育 い 線 が 50 ス テッ プ 分 引か れ ま し た . も し この と き , カラ ー コ ー ド 外 の 引数 を 与え る と , 


? setpc 16|.』 
setpc doesn't ike 16 as input 
つま り 引 数 の 値 が プリミティブ グ の 要求 する 範囲 に 見 合わ な い , と メッ セー ジ が 返さ れ ま す . ま 
た , 現在 用 いて いる ペン の カラ ー コ ー ド を 知り た いと き は , 


? pc[ 
1 


と 教え て くれ ます . この pc は , pencolor と いう プリ ミ テ ィ ブ の 短縮 形 . ター トル の ペン 色 に 対応 
する カラ ー コ ー ド の 値 を 返す 働き を 持っ て いる の で す . 
捧 に 、。 イン ク の 色 の 調合 を 考え て み ま し ょ う . まず , 


? px[」 
2setpc 7 fd 50[」 
?setpc 4 bk 50| 


白 , つ まり カラ ー コ ー ド 7 の 色 で 引か れ た 線 が , bk の と ほ に カラ ー コ ー ド 4 に 対応 する 赤 で 引 
か れ ま せん . これ は , すでに 表示 され て いる 色 に , 変更 きれ た イン ク 色 が 調合 され た こと を 意味 


ー デ 


, DXx (penreverse) は 色 を 重ね 合わ せる 機能 を 持っ た プリ ミ テ ィ ブ プ です. と ころ で , 


? pen|』 


| 


一 


( ソ ! 
ーー 
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と 入力 する と , 
[PENREVERSE 4 ] 


と 表示 され ます . pen は , 現在 の ター トル の 状態 と 色 を 返す プリ ミ テ ィ プ . ここ で 大 文字 に よる 表 
示 が 出 て きま し た が , これ は Logo 内 部 で 使わ れ て いる コト バ の こと . pen に よる ター トル の 状態 

と 色 の 表示 を ペン 情報 リス ト と 呼び ます が , setpen と いう プリ ミ テ ィ ブ を 使う こと に より , この 
内 容 を 一 度 に 書き 換え る こと も で きま す . 


?setpen [PENDOWN 7 ][」 


これ で , ペン の 上 げ 下 げ も ペン 色 も 最初 の 設定 に 戻り ます . setpen に 与え る 引数 は pen で 得 ら 
れる 情報 リス ト と 同じ 形式 で , ペン 状態 を 示す の に は 大 文字 が 使わ れ ま す 

な お ペン の 状態 に は PENUP, PENDOWN, PENREVERSE の ほか に PENERASE と いう も 
の が あり , これ は 文字 どおり , ター トル が 消し ゴム を 持っ て 動く よう な 状態 て です. penerase ( 短 
縮 形 は pe) と いう プリ ミ テ ィ プ で ペン を この 状態 に する こと も で きま す . 


ター トル の 向き を 変え る 

前 後 の 描 株 の 次 は , 方 向 を 変え る 手段 を 考え て み ま し ょ う . まず , ター トル の 角度 を 変え て や 
ら ね ば な り ま せん . 進行 方 向 に 対し て 左右 方 向 に 角度 を 変え 0 る の で すか ら , プリ ミ テ ィ ブ は left 
と right,。 それ ぞ れ It と rt に 短縮 で きま す . で は さっ そく , 


2rt 45|』 


メ , 頭 を 振り まし た . すでに お わか り の よう に , rt の あと に 与え た 45 と いう 引数 は クー トル 
の 角度 の 値 で す . rt と lt で は , 進行 方 向 に 対す る 角度 が 引数 と な る の で す . 次 に 直進 さ を せ て み ま 
覆う 。 


?fd 50[』 


2rt 45 2rt 45 2r ャ 45 
?fd 59 2fd 59 
21+ 99 fg 59 


2=9。 ター ト フ レック 22226 ッ ググ ス 人間 


真 上 に 対し て 45 度 の 角度 で 50 歩 前 進 . これ だ け で は 芸 が な い の で 今度 は さら に 左 90 度 ひね り の 
50 歩 前 進 で す . 
?It 90 fd 50[』 
と ころ で , クー トル は 次 を 消す こと も で きる の で す . hideturtle な る プリ ミ テ ィ プ で あり まし 


て , 短縮 有形 は ht で す . 


?cs ht[」 
し か も この 状態 て も クー トル は し っ か り 働 ほ を ます ,. お まけ に 姿 を 現し て いる と きよ り , 動き は 
速く な り ま す , 
?rt 90fd50 It 90 fd 50[』 
これ で て 線 だ けが 描か れ ま す . 再び クー トル を 登場 る 3 せる た め の プ リ ミ テ ィ ブ は showturtle, 短 


縮 形 は st で す . 


?cs st[.』 

また , クー トル が 画面 上 に 表示 きれ て いる か どう か を 確認 する た め の プ リ ミ テ ィ プ ブ も 用 意 さ れ 
て いま す . これ は shownp を な る も の で , st の 凌 態 て で あれ ば TRUE と 答え , ht な ら ば FALSE と メ 
ツジ を 所 も で よ で し ます 

さて ,。 ター トル に 角度 を 与え る プリ ミ テ ィ プ が IE と rt で ある こと は わか り ま し た ., し か し , 実 
は この 2 つ 以 外 に も 角度 に 関す る プリ ミ テ ィ ブ が ある の で す . rt と 1t は ター トル が 進ん で いる 
( 頭 が 指し て いる ) 方 向 に 対し て 角度 を 与え を る も の で , これ は 相対 角度 を 与え を る プリ ミ テ ィ ブ で あ 
る と 言え る で し ょ う . が , 画面 上 に お ける 基準 方 向 に 基 い た 角度 , つま り 総 対 角 度 に 対し て は rt 
も lt も 無力 で す . ター トル が 初期 設定 で ある home 位置 に ある と き 絶対 角度 (基準 回 転 軸 に 対す 


2cs ht ?r て 29 fd 59 1]1+ 99 fd 59 


(1 
し っ 
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ノー 


?cs rt 45 fd 59 rt 45 fd 59 ?cs seth 45 fd 59 seth 45 fd 5S9 


る 角度 ) は 0 度 で あり , こ れ を も と に 角度 を 決め て や る プリ ミ テ ィ プ か 必要 と な り ま す . で , その 
名 前 を setheading, 略称 seth と いい ます . rt, lt と の 相違 を 確か め て み ま し ょ う . 


?csrt45fd50rt45 fd 50[ 
?cs seth 45 fd 50 seth 45 fd 50[ 


両者 の 描線 を 見 れ ば 一 目 瞭 然 rt と lt が ター トル の 進行 方 向 に 対し て 角度 を 与え 


ます . 


図 2-3 基準 回 転 軸 


また , この よう な ター トル の 角度 に 関し 、 現 在 タ ー ト ル が 基準 回 転 軸 に 対し て 何 度 回 転 し て い 
る か を , 絶対 角度 の 数 値 で 表示 する , 角度 お 知ら せ プ リ ミ テ ィ ブ , heading が あり ます . 現状 で す 
の 


7 heading|.」 


45 


と , 答え て くれ る 便利 モノ で あり まし た . 
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( 2 ) カメ の 縄張り 


グラ フィ ックス 座標 
クー トル は , グラ フィ ックス クリ ー ン 上 に お いて , 移動 で きる 範囲 が 定め られ て いま す . home 
位置 を 基点 と し て , 


右 へ 126 歩 
左 へ 127 歩 
前 へ 99 歩 
後 へ 100 歩 


ユ < 


ブ xX 
ー127 


ー100 


図 2.4 クー トル ・ グ ラフ ィ ッ クス 座 裸 


が クー トル のみ の 活動 エリ ア と いう こと に な り ま す . 図 2 - 4 の よう に , これ は XX 軸 と Y 軸 に よる 座標 
と 考え を られ る わけ で すか ら , 逆 に これ を 利用 し て や り ま し ょ う . クー トル に 座標 値 (X 軸 , Y 軸 
で の 名 座 棟 値 ) を 与え て 動か してや る の で す . 使用 する プリ ミ テ ィ プ は setpos (セッ ト ポ ジ ショ 
ン の 意味 ). で は 試し に , 


?setpos [90 40]「」 


ター トル は , X 軸 方 向 に 90 歩 , Y 軸 方 向 に 40 歩 移動 し ます . 別に 角度 を 与え を た と た わけ で は な い の 
で , ター トル の 向き は 変り ませ ん . 
決 に ター トル の 現在 位置 を 知る プリ ミ テ ィ ブ の 紹介 . この た め に は pos (ポジ ショ ン の 意味 ) を 


る プリ ミ テ ィ ブ を 使い ます . ター トル グ の 選 場 所 を 座標 値 で 知ら せ て くれ る 働き を 持っ て お り 。, 今 
な ら , 

? pos| 

[90 40] 


と いっ た 具合 に 答え て くれ る の で す . 

で は 今度 は , ター トル を X 軸 方 向 , Y 軸 方 向 そ れ ぞ れ に 動か す 手 段 を 紹介 し て み ま し ょ う . え 
座標 に 関し て の み タ ー ト ル の 移動 を 受け 持つ アリ ミ テ ィ ブ を setx, Y 座標 だ け の 担当 を sety と 
言い ます . さっ そく , 


?cs setx 80[ 


(1 
( プ i 


2 意 Logo 初 級 講 座 


2setpos [29 49] 2cs setx 80 ?cs setx 89 
?setx -80 
?xcoFr 
-80 
?cs sety 50 ?cs sety 5 ぼ 
? ョ e て y -5 ぼ 9 
? ッ cor 
-59 


ター トル は , 角度 を 変え な いま ま , 水平 に x 80 の 位置 に 移動 し まし た . 逆 ち も や っ て み ま し ょ 


?setx 80[ 
や は 指定 座標 。x = ー80 に 走っ て 行き まし た . 現在 位置 の 確認 は 湊 の と お り . 


? xcor|.』 (x コー ア ィ ネイト の 意味 ) 


ー デ 
に 


y 三 50 の 位置 に 直進 し ます (cs を 入れ な いと X 還 が 最前 の 80 の まま で す ). 逆 ち も 試し 


9 


? sety 50|.」 


56 
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きち ん と y ニ ー50 に 動き ほ ま し た . 確認 は , 


? ycorl.」 


ー50 


カメ の 行動 範囲 
きる て ,。 クー トル に は グラ フィ ックス クリ ー ン 上 の 活動 エリ ア が 定め られ て いる , と いう 認識 は 


ここ) 


座標 の 話 で 御 理 解 じ に た だ けた も の と 思い ます . し か ら ば , カメ の 奴 が この 縄張り を 超え た ら ど う 
な る の か ., 試み に , 
?fd 10000|.』 
画面 の 外 に ぶっ 飛ん で 消え ん て し まい ます (当たり 前 だ ). これ で は 始末 に 困る の で , ター トル の 
移動 範囲 を 限定 し ます . カノ グ の 遊び 場 を 接 で 囲う よう な も の で し ょ う . プリ ミ テ ィ ブ は fence で 
9 
?cs fencel.」| 


これ で クー トル ク の 囲い 込み が 完了 . で は 実 共 . 


?fd 10000[」 


Turtle out of bounds 


クー トル 立入 禁止 区 域 に 侵入 計画 中 , て を メッ セー ジ が 返さ れ て きま し た ., 命令 に 縛ら れ て , 
ター トル の 方 は 一 歩も 動け ませ ん . この 囲い こみ の 状態 を フェ ンス 状態 と 呼び ます が , も し ター 
トル が すでに 画面 外 に 出 て し まっ て いる 場合 に は , fence は 実行 不可 能 で す . 


ター トル ク 行 動 四 囲 を 規制 する も う ひ と つの 方 法 は , wrap と いう プリ ミ テ ィ ブ を 使う も の. 


? wrap fd 10000[ 


?c= 2cs fenc ら = っ fd 19999 
2fd 19999 2fd 19999 co 
Tur モ le ou of bounds 
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線 は 引い た も の の , ター トル は 真中 (home) に 留まっ た まま . wrap に よる 行動 規制 下 で は , 
ー ト ル が 画面 か ら は み 出す よ う ) な マネ を し た 場合 , 画面 の 上 下 , 左右 が 連続 し て いる よう に , 画 
面 の 反対 側 に ター トル が 移動 する よう な 状態 に し ます . これ を ラッ プ 状 態 と 呼び ます が , わか り 
易く する た め に , ちょ っ と ター トル の 角度 を 変え て み ま し ょ う . 


?cs wraprt 30 fd 10000| 


?cs urap rt 39 fd 19990 


図 2-5 ラッ プ 状 態 


件 理 解 いた だ け ま し た か な . ター トル は 画面 を 飛び 出し て は 仮想 の ルー プ を 回 っ て 戻り , 10000 
歩 分 を 前 進 し た わけ で す . 

この よう に , フェ ンス 状態 , ラップ 状態 に する こと で ター トル ク の 行動 エリ ア を 規制 で きる わけ 
で す が , これ ら の 状態 を 解除 し て や る に は , window と いう プリ ミ テ ィ ブ を 使い ます . 


? cs window[ | 
これ で , ター トル は 再び 音 輸 を 外さ れ た こと は , あま りや り た く は な い 実 験 で 証明 る れ ま す . 


?fd 10000|」 


( 3 ) カメ , 働 け ! 


正方 形 

線 ば か り 引 いて いる の は も う 飽 きた . ター トル に も っ と 芸当 を や ら せ ろ 
度 は カノ に 図 を 描か せま す . 最初 は 一 番 易 し い 正 方 形 . 

正方 形 の 場合 , 四辺 の 長き が 均等 て , 内 角 が 4 つ 共 90 度 と いう の が 常識 で す が , な に し ろ タ ー 
トル が 描い て ゆく の で すか ら , 描く 過程 を 決め て や ら ね ば な り ま せん . ここ で は , 一 辺 の 長 る が 
50 歩 で 、 か つ ク ー ト ル が 右 回 転 で 描い て ゆく 正方 形 を 試み ます . 


どの だ で の) 
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?fd 59 ?fd 59 ?fd 59 


2rt 929 ?rt 29 

?fd 59 
L 

\ "へ へ 

?fd 59 2r+ 99 ?fd 59 

?rt 99 ?fd 59 ? ェ て 29 

?fd 59 2r て 99 ?fd 59 

?rt 99 ?fd 59 ? ェ て 99 
?fd 50 |』 
2rt 90 
?fd50 [| 
?rt90 | 

?fd50 [| ?r て 99 2fd 59 

?fd 59 ?rt 929 

が E30 回 2rt 99 2fd 59 

?fd 50 ?fd 59 ?rt 29 
?rt90 | 


正方 形 が で き , し か も ター トル は 初期 設定 に 戻り まし た . まァ , これ で も 一 応 正方 形 を 描け 
の で す が , も う 少 し 洗練 させ る と , 御存知 の , 


?fd 50rt 90fd50rt90fd50rt90fd50rt 90[ 


と な り , 同じ こと が 1 行 で 済ん を で し まい ます . し か し ,。 これ で も まだ , ま ど ろ っ こし いと は 思い 
ませ ん か ? 
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この 正方 形 を 描く 命令 を よく 見 て み ま し ょ う ). 分 解 し て みる と , fd 50 rt 90 と いう ひと 組 の 命 
令 が 合わ せ て 4 回 繰り 返さ れ て いる こと に 気付 きま す . この よう に 繰り 返さ れる 命令 を ひと ま と 
め に くく っ て し まう プリ ミ テ ィ プ が repeat で , 回 数 に 命令 リス ト を 付け て や る と , 正方 形 な ど 苦 


も な く 描 き 上 げ ま す . 
?csrepeat 4 [fd 50 rt 90] 


か な り リシン ブル に な り ま し た , も うお わか り の よう に , repeat は 後 の [ ] 内 の 処理 を 繰り 返し 
実行 せよ と の 命令 で , [ ] の 前 の 数 字 は 繰り 返し の 回 数 を 指定 し て いま す . 


と ころ で , 正方 形 を いく つも 描か な けれ ば な ら な いと き を 考え て みて くだ さい 。 その た びに , 
?repeat 4 [fd 50 rt 90] に | 
と 入力 する の は 面倒 で す . Logo で は ひと つの まとまっ た 仕事 に 名 前 を 付け て メモ リ 上 に し まっ 
て お ける の で す . この 名 前 を 付け た 仕事 を プロ シー ジェ と 呼び ます . それ で は と に か く 〈 く 正方 形 を 
描く 「 シ カク 」 プロシージャ を 作っ て み ま し ょ う . まず 決 の よう に 入力 し て くだ さい . 


?to シカ ク [| 
> 


プロ ンプ ト が ? か ら > に 変り まし た . これ は プロ シー ジェ グ の 定義 中 で ある こと を 示し ます . 続 


>repeat 4 [fd 50 rt 90][』 


>end 
と 入力 する と , 


シカ ク defined 


示し て 通常 の プロ ンプ ト [ ? ] が 出 て きま し た . シカ ク defined (シカ ク は 定義 る れ ま し た ) と 
) に 定義 る 8 れ て いる か どう か 調べ て み ま し ょ う . プロ シー ジャ を 呼び 


> 
出す の は いた っ て 簡単 . その 名 前 を 入力 すれ ば よい の で す . 
? シカ ク [| 
了 予定 どおり 正方 形 が 描か れ ま し た . これ 以降 「 シ カク 」 と 何 回 入力 し て も , 同じ し よう に 正方 形 
が 描か れ ま す . 
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^ う 
Wi 
トー 』 
1 


正 多角 形 
正方 形 に 代表 る れる, すべ て の 辺 の 長 る と 頂点 の 角度 が 等 し い 図形 を 正 多角 形 また は 正 N 角 形 
と 呼び ます (今さら 書く まで も な いか …). 正 N 角 形 は 一 定 の 長 る を fd て 進ん で は , 一 定 の 角度 だ 


け 曲 が る こと を N 回 繰り 返す こと で 描け る は ず で す . つま り , 
repeat n [fd 一 辺 の 長 さ rt 360 テ n] 


と いう こと に な り ま す . これ を 一 辺 の 長 る を 50 と し て , Logo の コト バ で 定義 する と , 
repeat :n[fd 50 rt 360 プ :n] 


と な り ま す . :n は 変数 と いう も の で , いろ いろ な を 値 を 持つ こと が で きま す , :n に 5 が 入っ て い 
れ ば 正 五 角形 。: n に 3 が 入っ て いれ ば 正三 角形 が 描か れる と いう わけ で す . 
それ で は 「 タ カク ケイ 」 プ プロシージャ ェ を 定義 し て み ま し ょ う . 


?to タカ ク ケ イ :n 加 
>cs[ 


>repeat :n[fd 50 rt 360 プ :n] 


>end[」 
タカ ク ケ イ defined 


今度 は to タカ ク ケ イ の あと に : n が 書い て あり ます . こう し て お く と, 
? タ カク ケイ 8 | 


7 
ノ 


と 入力 すれ ば :n に 8 が 代入 され , 正八 角形 が 描け る わけ で す . fd と か rt と か いう プリ ミ テ ィ 
と 同じ よう に , プロ シー ジャ に も 引数 を 持っ た も の が 作れ る の で す . 
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3 吉 に て 症 
?2 カ 27 イ 7 ? タ カク ケイ 8 


円 
正 多角 形 の 頂点 を 無限 に 多く する と 円 に な り ま す . 無限 と いわ ず と も , 


? repeat 360 [fd 1 rt 1][」 


?repeat 369 [fd 1 rt 11 2?2repeat 36 fd 19 rt+ 19] 
?repeat 18 [fd 19 rt 19] 2repeat 9 [fd 19 rt 19] 
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で 何ら 問題 は あり ませ ん . こ れ で ター トル が 何 を する の か と いえ ば , 一 歩 前 進 す る ご と に 右 へ 1 度 
ずつ 向き を 変え て ゆき , その 作業 を 360 回 繰り 返す こと で 円 を 描く と いう わけ で す . まァ 了 , 確か に 
円 に は な り ま す が , これ で は ノロ 臭く て アク ビ が 出 ま す . ここ は 考え 方 を 変え , 正 36 角 形 を 描か 
層 の 較 。 と に SED の 

?repeat 36 [fd 10 rt 10][.」 

きき ほど の 円 と ほぼ 同じ も の を 描く の に , 格段 の スピ ー ド アッ プ が 達成 され まし た , で , この 

な み 方 を 応用 する と , 半 円 て あれ ば , 

?repeat 18 [fd 10 rt 】0]| 
に な り ま すし , 4 分 の 1 だけ 円 を 描く に は , 

?repeat 9 [fd 10 rt 10]|.」 


と 表現 する こと が 可能 で す . 
と ころ で こう いっ た 半 円 を 直径 を 深々 と 広げ て 描い て いっ た ら ど うな る で し ょ うか 7? 渦巻 き 
み 


に な る は ず で す . で は 直径 の 変更 可能 を 半 円 を 作る プロ シー ジェ ィ を 作っ て み ま し ょ う . 


?to ハン エン : size[J 
>repeat 18 [fd :sizert 10]|』 
>end「.』 


ハン エン defined 
この よう に プロ シー ジャ が 定義 で きだ ちら 


2 ハン エン 1 ハン エン 2 ハン エン 3………… 


(っ Y 


? 人 ルン エン 1 八 ラ エン 2 作 ラ エン 3 


2 章 Logo 初 級 講座 


と 入力 , 確か に 渦巻 き は で きま す が , は っ きり 言っ て まだ る っ こい . 洗練 させ まし ょ う . 何 か 変 
炒 を 用 意 し て , それ を 1 ずつ 増やし な が ら ,「 ハ ン エ ン 」 プ ロ シ ー ジ ャ に それ を 渡せ ば よい よう で 


す . 


?to ウズ マキ [| 
>make r 1 


>reapeat 16 [ハン エン :r maker :r 二 1] 


>end[」 
ウズ マキ defined 


こう する と , 目的 どおり の プロ シー ジャ に な り ま す . ここ で make と いう の は , 変数 に 値 を 代 
入 する プリ ミ テ ィ ブ で , 


make “< 変数 名 〉 〈 値 〉 
と い 2 書式 で 使い ます . repeat の な か で 使わ れ て いる . 
make r :r 十 1 


を この 書式 と 見 比べ る と , r と いう 変数 名 を 持つ 変数 に , : r+ 1 を 代入 し て いる こと が わか る で 
本 中). 

この 渦巻 き プ ロ シ ー ジ ャ で は , 前 に 作っ た "ハン エン ” の プロ シー ジャ が 使わ れ て いま す 。 こ 
れ は Logo で は 、 プロ シー ジャ も 一 度 定 義 し て し まえ ば , 以後 (電源 を 切る みほ ま では) プリ ミ テ ィ プ ブ 
と 同じ よう に 使え る と いう 特性 ゆえ な の で す . 


繰り 返し と 停止 
さて , repeat で 多角 形 を 描い た と き は , 角 数 n の み を 変数 と し て 取り 扱い 辺 の 長 る は 50 ス テ 


こ 
4 ノ ーー 


ッ プ に 固定 し た まま で し た . し か し Logo の 持つ ワザ を 少々 使う と 多角 形 を 別 の や り 方 で 描く こ 


と が 可能 で す . まず プロ シー ジャ を 作っ て み ま し ょ う . 


? to タカ ク ケ イ : ヘ ン : カ ク ド [ 骨 
>fd : ヘン | 

>rt : カ ク ド | 

> タカ ク ケ イ : ヘン : カ ク ド [」 
> end「.」 

タカ ク ケ イ defined 
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2-3 ター トル ・ グ ラフ ィ ッ クス 入 幅 


試み に , 90 度 角 で 正方 形 を 描か せ て み ま し ょ う . 辺 の 長 さ は 60 と し て , 


? タカ ク ケ イ 60 90| 


? タ カク ケイ 69 29 


クー トル が 同じ 進路 , つま り 60 ス テッ プ 90 度 角 の 正方 形 を 何 回 も 描き を ます. 


8 
ン ン 2 


タカ ク ケ イ 69 69 ? タ カク ケイ 49 45 


じ 1 ま 素 


? タ カク ケイ 69 129 ? タ カク ケイ 69 144 ? タ カク ケイ 69 299 


2 章 Logo 初 肖 計 座 


この プロ シー ジャ を よく 見 る と "タカ ク ケ イ " と いう プロ シー ジャ の な か で , さら に 自分 自身 で 
ある "タカ ク ケ イ ” を 呼ん で いる こと が わか り ま す . Logo で は この よう に , 任意 の プロ シー ジャ 
か ら 自 分 自身 を 呼び 出す こと が で きる の で す . た だ 前 述 の repeat と 條 い , 繰り 返す 回 数 を 指定 し 
の 2 つの キー を 同時 に 押し ます . 

さき ほど の 渦巻 き の プ ロ シ ー ジ ャ を , この 繰り 返し の 手法 を 使っ て 書き 直し て み ま し ょ う . 

? 1o ウズ マキ : ヘン: カク ド 
>fd ヘン | 

>rt : カ ク ド [ 

> ウズ マキ : ヘ ン キ 3 [カク ド 


>end|J 
ウズ マキ defind 
| 
29 ス "マキ 19 9 ?29 ス "マキ 19 69 
29 ス "マキ 19 129 29 ス "マキ 19 144 ?9 ス "マキ 19 244 
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2z9 ター トド ルッ ルレ シズル ウツ グ ス 浴 門 


ここ で も また , 変数 に 任意 の 値 を 代入 する こと で , さま ざま な 渦 着 き が 出現 し ます . この 渦巻 
きき プロシージャ が 多角 形 と 異な る の は , プロ シー ジャ 自身 が ウズ マキ を 呼び 出し た と き に , : ヘン 
が : ヘン 3 に な っ て いる こと て で, 各 辺 が 前 の も の より 3 ステッ プ ず つ 長 〈 なり, 以降 これ を 延々 
と 繰 り 返 し て ゆく こと を 意味 し ます . 簡単 な プロ シー ジャ で も 思い の ほか 複雑 な 図形 を 描く こと 


が で きま すね , 


ター トル ・ グ ラフ ィ ッ クス の まとめ 
そろ そろ ,。 クー トル ・ グ ラフ ィ ッ クス の 入門 コー ス を 修了 で きる あたり まで 満 ぎ つけ まし た . 


で は , ここ ら で お る らい を し て お きま し ょ う . 
? to シカ ク : sizel」 
>repeat 4 [fd :sizert 90][』 
>end[.」 
ここ まで は , よく わか っ て いる も の と 思い ます の で , 次 に は , 
?to ウゴ ク : sizel」 


>repeat 12 [シカ ク :size rt 30][』 
>end[.」| 


? シ カク 59 ?29 コ * ク 59 


お わか り で すか な . で は , さら に も う ひ と つ , 


?to カイ テン : ス ヘン : カ ク ド [ 

> シカ ク : ス ヘン [ 

>rt : カ ク ド [ 

> カイ テン : ヘ ン 二 3 : カ ク ド [ 骨 
>end | 
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2 章 Logo 初 級 講座 


カイ テッ 1 19 


さあ どう で す . 御 理 解い た だ け ま し た か . 一 辺 が N ステ ッ プ の 大 きき の 四角 形 か ら 始 まっ て , 
決 に は 3 ステ ッ プ ずつ 大 き (《 な る と 共に , カク ド で 指定 し た 角度 ずつ 回 転 し て ゆく こと を いつ ま 


ュー こと 


で も 株 り 返す プロ シー ジャ で す . この よう な プロ シー ジャ は 留まる と ころ を 知ら ぬか の よう に 実 


行 を 続け て ゆ 《 も の で す が , stop な る プリ ミ テ ィ ブ を 使う こと で , 上 限 を 定め る こと も 可能 で す . 
プロ シー ジャ を 打ち 直し て , STOP を か け て み ま し ょ う . 


?to カイ テン : ヘ ン カク ド | 
>if : ヘ ン > 80 [stop] 

> シカ ク : ヘン |』 

>rt カク ド | 

> カイ テン : ヘ ン キ 3 : カ ク ド [ 
>end| | 


? カ イ テ ン 1 19 ([STOP】 付 き ) 


2-3 ター トル ・ グ ラフ ィ ッ クス 人 入門 


アン ダー ライ ン の 行 が 停止 規則 を 意味 し , 1 辺 が 80 ス テッ プ に 達し た ら ス トッ プ せ よ と いう 命 
令 に な り ま す . ここ で 使わ れ て いる if と いう プリ ミ テ ィ ブ は , 条件 判断 の と き に 使わ れる も の で , 
特定 の 状況 で は こう な り , 別 の 状況 で は ああ な る , と いっ た よう に 与え られ た 条件 に よっ て 実行 
内 容 を 変え て ゆく も の で す . 放 の あと に は 判定 文 と 命令 リス ト が 必要 で , 判定 文 に よっ て 設定 され 
る 条件 を , 硫 で 実行 きせ る こと に な り ま す . で すか ら こ の 場合 は ,: ヘン が 80 ス テッ プ よ り 大 き 
く な っ か た 場合 , 判定 文 に よっ て 偽 止 が 実行 され る わけ で す . 

き て , クー トル ・ グ ラフ ィ ッ クス 入門 も , そろ そろ 終り と な り ま す . 簡単 に 作れ る プロ シー ジ 
ャ で も, ずい 分 と 複 灯 を 図形 が 描け る と 思い ませ ん か . あと は , 今 ま で 学ん だ も の を , 自分 な リ り 
に 組み 立て て オリ ジ ナ リティ を 加え る こと . より 複 林 な グラ フィ ックス は 次 章 に ゆず り ま す が , 
お さら い の 竜 味 を こめ の , ひと つ サ ンプ ル を 書い て お きま し ょ う , 


?to leaf : sizel.J 
> setpc 10[』 
>repeat 9 [fd :sizert 10][ 


>rt 90[』 


>repeat 9 [fd :sizert 10][ コ 


>end[.」 


?to flower : size[』 


>repeat 8 [leaf :sizert 45][」 
>end|.」| 
?1eaf 19 ?flouer 19 


3 章 Logo プ ログ ラミ ング 


図 3-1 直方 体 図 3-2 角度 6 の 平行 四辺 形 


これ で 任意 の 大 き さ の 正方 形 が 得 ら れる わけ で す が , 立体 らし く 見 せる に は 、 底面 は 正方 形 で 
は な く 〈, むし うろ 平行 四辺 形 の 方 が 似つか わし い . そこ で 図 3 - 2 の よう な 、 角度 の を 持つ 平行 四辺 
形 を 作り ます , リス ト 3 - 1 が その プロ シー ジャ な の で す が , 話 を 先 に 進め る 前 に , ここ ら で エ 
ディ ッ ト モ ー ド に 触れ て お きま し ょ う . 合理 的 な プロ グラ ミン グ に は 、 な く て は な ら な い 知識 な 
の で す . 


ーー こそ SYS 写 完 3 の の あこ よ に モー て 3 List 3-1 
to テイ メッ !] !a 
rt 99 - ia 
repeat 2 


[fd il rt ia 
fd il rt 189 - ia 


] 
lt 99 - ia 
end 
| CR 生 TNEEKURE YE 送 0ODO SL り で に る ES" CDE の ER や や 


( 2 ) プロ シー ジャ は エディ ッ ト モ ー ド で 


これ まで は , プロ シー ジャ の 定義 は to - を プロ ンプ ト 状 態 か ら 入 力 す る こと で 行っ て ほ き 
た , し か し , この 方 法 で は [を 押し て し まっ た な ら , 入力 し た も の を 訂正 する こと は 一 切 で 
せん . ドジ を 踏ん だ ら 最 初 か の ら や り 直 さる ね ば な ら な いわ け で す が , これ で は あま り に 不便 . そこ 
で 使わ れる の が , エディ ッ ト モ ー ド で , プリ ミ テ ィ ブ は edit (ed) で す . 


? ed|.」 


と 入力 する こと で , 画面 が チキ スト スク リー ン 状 態 と な り ま す (この と ほ き ? は 表示 ミ れ ず カ ー ソ 


ル の み が 点 減 し ます ). そこ で 最初 の 行 に , 


to 一 !」 


こ } 
いふ 


3-1 立体 柱 を 描く 


と 入力 し , それ 以降 に 定義 内 容 を 続け て や り , 最終 行 に , 


end 


。 gg を 実行 ける と カー レル ガ 両 面 圧 上 に 現れ る 
も to テイ メン 1] sa 口 
rt 29 - sa 品 
repeat 2 ロロ 
と 革 za ロロ 
rt 189 - sa 口 


sa ロロ 


end の あと は [5 ] を 押 ブ 


ed の 実行 例 ( 登 録 ) 


エディ ッ ト モ ー ド で は カー ソル パドル で カー ソル を 自由 に 動か みす こと が で き , また キー ポー ド か 
ら の 入力 は , カー ソル の すぐ 左 に 挿入 る れ ま す . な お , エディ ッ ト モ ー ド 中 に お ける 特殊 な キー 
の 機能 を 次 の ペー ジ の 表 3 - 1 に 示し ます の て , 参考 に し て くだ さい . 

[F 5 | を 押し て 定義 し て し まっ た も の を 修正 する に は , 


? ed “プロ シー ジャ 名 [| 


と する こと で , 再び エディ ッ ト モ ー ド を 呼び 出せ ます , この と き に 忘れ て は を ら な い の は (make 
の よう : に り 。 "SG お まだ た な の トモ ー ド 中 に プロ シー ジャ 名 を 変え た た だ け で [F 5 | を 押す と, 
その プロ シー ジャ の 名 前 が 変 の の で は な く , 新しい プロ シー ジャ が 作ら れ て し まい ます の で , 注 
意 し た 方 が よい で し ょ う . 

この ほか の エディ ッ ト モ ー ド 関係 の プリ ミ テ ィ プ と し て は , まず 現有 の も の すべ て の プロ シー 
ジャ を エディ ッ ト す る た め の edall が あり ます が , を に し ろ Dr. Logo で 一 度 に エディ ッ ト で きる 
量 の 限界 が 低い も の で すか ら , あま り 使 わな い 方 が 覧 明 . エディ ッ ト す る 量 が 多く な を り , 処理 の 
限界 を 超え て し まう と 


My edit buffer is ful 


と メッ セー ジ を 返し て きま す . や は りお と な し く ed で エディ ッ ト す る の が 一 般 的 と 言え る 


まめ 


3 童 Logo プ ログ ラミ ング 


| 


単独 押し の 場合 


カー ソル の ある 位置 の 1 つ 前 の 文字 を 消す 
カー ソル 以降 の 文字 は 1 字 分 ずつ 前 へ 動く 


ー ソ ル が , 画面 上 で カー ソル 
カー ソル が 1 つ 右 へ 動く 
の め る 行人 
ー・ エディ ッ ト す る 内 容 が 数 画面 に 
ー ソ ル が 1 つ 上 へ 動く 
渡る と き , 前 の 画面 に 戻る 
ー ソ ル が 1 つ 下 へ 動く 間 和 0 ー 
ー ソ ル が 1 つ 左 へ 動く カー ソル が 。 画面 上 の 行 の 先頭 
へ 動く 


SHIFT 」 と 同時 押し 


園 
コ 
HH 

9 ん / 


ー ソ ル が エディ ッ ト す べき 内 カー ソル が エディ ッ ト す べき 内 

HOME 4 容 の 最後 の 文字 の 次 に 移動 する 
カー ソル の ある 位置 の 文字 か ら 、 
CLR プロ グラ ム と し て の 1 行 の 行末 


まで を 消す 
カー ソル の ある 位置 の 文字 を 消 
し , それ 以降 の 文字 を 1 字 分 前 
へ 詰め る 
カー ソル の ある 位置 に 1 行 分 の 
プラ ンク を 挿入 する . カー ソル 
が あっ た 位置 以降 の 文字 は , 1 
行 ず つ 下 ^ へ 移動 し , 画面 の 最 下 
行 に あっ た 行 は 消え る 


表 3-1 エディ ッ ト モ ー ド に お ける 特殊 な キー の 擬 能 


な お , プロ グラ ム が エラ ー で 停止 し た と き に , た だ 単に ed と 入力 する と, カー ソル が エラ ー の 
発生 し た プロ シー ジャ の エラ フー 発生 箇所 で 点 減 し ます の で , デバ ッ グ 時 に 便利 だ と いう こと も 書 
き 加 えて お きま し ょ う . 

湊 に , 現在 定義 る れ て いる すべ て の プロ シー ジャ を 調べ る た め に は 。, 

? pots | 


と 入力 し ます , これ で 全部 の プロ シー ジャ 名 が 表示 る され ます の で , た と えば 前 に 付け た 名 前 を 忘 


れ て プロ シー ジャ を 実行 で を き な い よう な と き , と て も 重宝 する も の で す . 
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3-1 立体 柱 を 捕 く 


また , 特定 の プロ シー ジャ の 内 容 を 見 た いと き に は , 
po “プロ シー ジャ 名 
で OK. poall を 使え ば , ワー クス ペー ス 内 の 全部 の プロ シー ジャ の 内 容 が , あと で 触れ る グロ ー 
バル 変 衝 まで 人 委 の て 表示 る れ ま す . すでに お わか り と 思い ます が , これ 以降 の 王 な プロ シー ジャ 
の リス ト は , プロ ンプ ト 状 能 か ら で は な く 《, エディ ッ ト モ ー ド て 入力 する 形 で 載せ ます の で , 覚 


えて お いて くだ きい ,。 
( 3 ) 底面 そし て 高き 


リス ト 3 - 1 の プロ シー ジャ , テイ ノン を 用 い ぃ いて, とにかく 底面 を 作っ て み ま し ょ う . この 長 る さ 
は 50 で , 角 の は 30' と し ます , 
? cs テイ メン 50 30[.j 
これ で ひし 形 が で きま し た , し か し , これ で は 臭 行き を が あり 過ぎ で , 底面 らし く 見 せる に は こ 
れ を 短縮 する 必要 が あり ます . そこ で , 抽 行 き の 長 る の 縮小 率 を 指定 で きる よう に プロ シー ジャ 


を 変更 し 。 リス ト 3 - 2 の よう な も の を 作り ます . 


の 5 半 LiSt 3-2 


モ O テイ メン *] sia iq 
Ft 99 - sa 
repea 2 
[fd :]1 ※ :q も *:a 
fd si] rt 189 - za 


] 
]t 29 - sa 
end 


追加 づる . この と き を 押す 必要 は な い 


モ O テイ メン ki] sa sq | 
Ft 29 - sa 


repea セ 2 

[fd :] ※ :q も sa 
Td :]l rt 189 - za 
] 

1]t 99 - sa 


end 


rt の r の こと ころ へ カー ソル を 持つ て き て ,「* : q」 と 打つ 


ed の 実行 例 (修正 ) 


ー! 
ソ ! 
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リス ト 3 - 1 と の 違い は , 2 つ だ け . 
? ed \ テ イメ ン [| 
で エディ ッ ト モ ー ド に 入り , これ ら を 追加 訂正 し た ら [F5| を 押し て 実行 し ます . 
? cs テイ メン 50 30 0.3 


これ で , 底面 は や っ と それ らし 〈 く な り ま し た . し か し 各 辺 の 色 が 同じ で は Logo の せっ か く の カ 
ラフ ル な 機能 を 無視 する こと に な っ て し まい ます . そこ で リス ト 3 - 3 の よう に 手 を 加え て , よ 
り プロ グラ ム っ ぱく 〈 (? ) 見 せる よう に し て み ま し た ., 


3-3 


to テイ メン !| ia iq 
rt 99 - ia 


setpc 13 

fd :| %X :q rt ia 

setpc 12 

fd | rt 189 - za 

setpc 1 

Td :| ※ iq rt *a 

setpc 3 

fd :| rt 189 - ka 

1t 99 - ka 

end 
EEE 親子 | 


さて , こう し て 作ら れ た 底面 も 正しく 見 れ ば た だ の 線 描 の 平行 四辺 形 . こい つ を 使っ て 直方 
体 を 作る た め に は , い くつ も 積み 上 げ て や れ ば よし . そこ て 高 さ を 指定 する 必要 が 生 し ます . リ 
スト 3 - 4 を 見 て くだ さい . 初 登場 の rq は readquote の 申 で , | が 押 を れる まで に キー ボード 


?2 八 ララ 

ョ ヨコ?59 

| テイ メン ノ カク ト " 239 

ク テ ヲ チチ "メル ワリ アイ ? 。 ア 7 
ク カ サ ?59 


3-1 立体 柱 を 拉 


か ら 入 力 さ れ た も の を 返す プリ ミ テ ィ ブ . また , ( ) を 使っ て いる の は , local と いう プリ ミ テ ィ 
プ の 引数 が 基本 的 に ひと つ な も の で , いく つも の 変数 を 1ocal に し た いと き に 用 いる 方 法 で す 
( ]ocal の 働き に つい て は 後述 し ます )。 


ー ee 二 | を STP re コア PE Sr 
ペー 


Fa 遇 List 3-4 


to 八 ラ ラ 

(1ocal "1] 'a "q 「"h) 

ョ p | 1 t ら CCeen 

type 上 ヨ ]J?] make "1 rq 

type [テイ メン / カク ト "?] make "arq コ 

ャ ッ pe [クタ テ ラ ヲ チチ "メル 7 リア イ ?] make "コテ rq コ 
type 上 タカ サ ?] make "h と q 


repeat sh / 2 
[テイ メン si] za iq 
pu 和 fd 2 pd 
] 


end 


ーー ーーーー ーー ーーーーーーーーーーー ーーーー ーー 一 ーーーーー ーーーーーーーーーーー 一 ーーーーー- "< 和 っ すか 


2 8 
TP マロ テ ルッ ・ とり で ュ 
前 トー ーー ーー 


(4 ) ディ スク へ の 保存 と 読込 み 


せっ か く 〈 く 作っ た プロ シー ジェ も , 電源 を 切っ て し まえ ば それ で お し まい . フロ ッ ピ ー デ ィ ス ク 


ドラ イブ まで 付い て いる SMC-777 で , それ で は あま り に 芸 が あり ませ ん . ディス ク に プロ グラ ム 
を セー プ し て こそ , 始め て FDD の 真価 が 発揮 きれ ます . そこ で , ディ スク に プロ グラ ム を 格納 す 


る た め の プ プリミティブ か 必要 と な る の で す が , これ は 御存知 の save, 書式 と し て は , 

save `~ フ ァイル 名 
と な り ま す . ここ て 注意 し た い の は , Logo が デー タ (プロ シー ジャ も 含め ) を 格納 し て お く メ アモ 
リ 中 の 場所 を ワー クス ペー ス と 呼び ます が , save の と を ほ に は この ワー クス ペー ス の 内 容 を 全部 ま 
る ご と ディ スク に 格納 し て し まう こと で す . で すか ら 不 要 の プロ シー ジャ は あら か じ め 消 し て お 
(必要 が あり , その た め に は , 


er プロ シー ジャ 名 


と し ます . この er は erase の 略 で , 指定 の プロ シー ジャ を ワー クス ペー ス か ら 消 去 する 働き ほ を 持 
っ て いま す . 

セー プ す る と き に 付け る ファ イル 名 は 8 文字 以内 の 英 数 字 で , この と き は 大 文字 ・ 小 文字 の 区 
列 は され ませ ん . また , すでに 存在 する ファ イル 名 を 指定 し た 場合 は 、 


File ベ メ メメ already exists 
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と メッ セー ジ が 出さ れ , セー プ で きん よ , と 伝え て きま す . それ で は , さき ほど の 直方 体 の プロ 
シー ジャ を ディ スク に セー プ し て み ま し ょ う . 

? save "hashira|」| 


セー プ ブ が 終了 し た ら , 本 当 に 記憶 され た か を 確認 し て みる こと に し まし ょ う . ワー クス ペー ス 
に は まだ 内 容 が 残さ れ た まま で す の で , まず これ を 片付け て し まい ます 。, 


? erall」| 
これ で ワー クス ペー ス 内 の すべ て の デー タ は 消え 去り ます 。 確認 は , 
? poall 


ワー クス ペー ス 内 の 全 プ ロ シ ー ジ ャ の 内 容 と グロ ー バ ル 変 数 が 表示 され る は ず で す ( も ちろ ん , 
ここ で は 何 も 出 て きま せん ). し か ら ば , ファ イル 名 hashira を 読み 込ん で みる こと に し まし ょ う 。 
プリ ミ テ ィ プ は , これ また 御存知 の よう に load で す . 


load “ファ イル 名 
この 書式 で 全部 0K. で は さっ そく 実行 し て , 


?load "hashira|.」 
テイ メン defined 


ハシ ラ defined 


ディ スク ドラ イブ が 作動 し て , メッ セー ジ が 表示 され る こと で , 所 定 の プロ シー ジャ が 読み 込 
まれ た こと が わか り ます . プロ ンプ ト 状態 に な っ た な ら , も う 一 度 poall で ワー クス ペー ス 内 を 覗 
いて みて 〈 だ さい . ちゃ ん と 読み 込ま れ た こと が 確認 3 れる は すず で す . 

この よう な ディス ク 回 り の プリ ミ テ ィ ブ と し て , この 他 に , ディ スク に 保存 る され て いる 全 フ ァ 
イル 名 を 表示 する た め の getfs が あり ます . これ は ディ スク 内 の Logo に よる 人生 ファ イル 名 を 
[ ] で くく っ て 並べ て 表示 し て くれ ます . また , ファ イル 名 を 変更 し た い の 場 合 は changef . 書式 
は , 


changef ` 新 ファ イル 名 "I 旧 ファ イル 名 


と な り ま す . さら に 増設 ドラ イプ を 用 いる と き に , 登録 ドラ イブ (ドラ イブ 名 を 省略 し た と き に 


指定 され る ドラ イア プア) を 変更 する た め の 命令 が あり , 
setd “ドラ イブ 名 : ( 例 setd "b:) 


を 用 いま す . な お 現在 の 登録 ドラ イブ 名 を 知る た め に は , defaultd を 使い ます . 


3-] 立体 柱 を 描く 


ワー クス ペー ス の 内 容 を すべ て ディ スク に セー プ す る 
| load 。 | 指定 され た ファ イル を ディ スク か ら ロ ー ド する 
ディ スク 上 の ファ イル 名 を リス ト に し て 返す 


ディ スク か ら 指 定 の ファ イル を 消去 する 
ファ イル 名 を 変更 する 


指定 され た プロ シー ジャ や グロ ー バ ル 変 数 の 定義 を 表示 する 
すべ て の プロ シー ジャ の 内 容 を 表示 する 
すべ て の プロ シー ジャ の タイ トル を 表示 する 
すべ て の グロ ー バ ル 変 数 の 内 容 を 表示 する 


すべ て の プロ シー ジャ と グロ ー バ ル 変 数 の 内 容 を 表示 する 
指定 され た プロ シー ジャ を 削除 する 
指定 され た グロ ー バ ル 変 数 を 削除 する 


表 3-3 ワー クス ペー ス に 関す る 命令 の まとめ 


(5 ) Logo の プロ グラ ム 構 造 


Logo で は すでに 見 て きた よう に , いく つも の プロ シー ジャ が 積み 重なる こと に よっ て プ ブログ 
フ ム が 成立 し ます . ひと つの プロ シー ジェ が 段階 的 に 他 の プロ シー ジャ を 呼び 出し , いく つか に 
仕事 を 分 担 し な が ら 全 体 の 仕事 を まとめ あげ る わけ で , この よう な スク イル を 階層 構造 と 呼ん で 
いま す . 

いく つも の プロ シー ジャ に 分 か れ た プロ グラ ム の うち , 他 の プロ シー ジェ ャ を 呼び 出す こと は あ 
っ て も , 決し て 自分 だ け は 呼び 出さ れ な いと いう プロ シー ジャ が 存在 し ます . まァ , メイ ン ル 一 
プロ シー ジャ の 積み 重ね が 階層 構造 を 作る と き , トッ プレ ベル か ら 順 を 追っ て 到達 する 仕事 ( プ 
ロ シ ー ジ ャ ) の 到達 順位 を レベ ル と 言い , 順位 を 表す 数 字 を レベ ル の 深き さと 呼び ます . Logo に お 
ける プロ グラ ミン グ は , こう し た 階層 構造 を いか に 上 手 に 作る か に お も し ろ 
難し さる に も な っ て いま す . これ 以降 , こう し た 階層 構造 を 持っ た いく つか の プロ グラ ム を 登場 さ 
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トッ プレ ベル 


プロ シー ジャ 1 プロ シー ジャ 6 プロ シー ジャ 7 


FR | 


プロ シー ジャ 2 プロ シー ジャ 3 プロ シー ジャ 8 


で で ヾ 


図 3-3 プロー ジャ の 階層 構造 


せ , Logo プロ グラ ミン グ 上 達 の 手 懸 り を 作っ て ゆく 予定 で す . し か し ,、 その 前 に どう し て も 訂 け 
て 通れ ぬ 関 門 が , 実は 待ち 構え て いま す . それ は 数 学 娠 い の 人 間 に と っ て , 何と も 恐ろし い 引 数 
や 変数 の 話 , で も , 恐れ る こと は 決し て あり ませ ん . プロ グラ ム と いう ひと つの スト ー リ ー の 流 
L の な か に こう し た 数 学 的 な 要素 を 当て は め る と , 不思議 な ほど スム ー ス に 覚え る こと が で きる 
も の で す . 考え て みれ ば , Logo は そん な 思考 の 流れ を 作ろ る こと に より 優秀 な 算数 の 先生 に も な れ 
る の で す . ま 了 情 肘 は ら ず に リラ ックス し て , 湊 の 節 に 取り 組ん で みて く 


ー ャ 


> さい ゝ 


9d-P 変数 と 引数 


( 1 ) 引数 ・ 変 数 ・ 定 数 


これ まで に も , 変数 だ の 引数 だ の と いっ た コト バ は ずい 分 と 使わ れ ま し た が , ここ ら で そ の 実 
体 を , 少し ば か り 詳 し く 見 て みる こと に し まし ょ うう . まず Logo の 命令 の 書式 を 考え て くだ さい . 
これ は た だ 一 種類 , 


〈 命 令 語 〉 < 引数 〉 < 引数 >〉 ……… 
これ だ け で す . で すか ら た と えば , 
print [SMC-777] 


と し た 場合 に は , [SMC-777] は print 命令 に 対す る 引数 に なり ま す . も う ひ と つ 例 を 挙げ る と , 


3-2 変数 と 引数 


repeat 4 [fd 50rt 90] 


で は , 4 と [fd 50 rt 90] が repeat と いう 命令 の 引数 な の で す . この 引数 に は ここ で 見 る 4 の よ 
うに 値 そ の も の で ある 定数 の 他 に , 自由 に 値 を 変 0 る こと の で きる 変数 が 使え ます . この 変数 , 
きん ぎん 試み た よう に , 変数 名 の 直前 に : を 付け る こと で 識別 され ます . そし て , 変数 に 値 を 代 
入 す る と き に は , 何 度 6 使っ た make に 登場 し て も ら う わけ で , 書式 に する と, 


make “< 変数 名 > < 値 > 


と な る の で す が , "(クォート ) を つけ な いと 意味 を な し ませ ん の で , 御 注 意 の ほど を . 


( 2 ) グロ ー バ ル 変 数 と ロー カル 変数 


Logo で 使う 変数 に は , グロ ー バ ル と ロー カル と いう 2 種類 が あり ます . グロ ー バ ル 変 数 と いう 
の は , プロ ンプ トト 状態 か ら で ち も プロ シー ジィ の な か で る 自由 に 代入 し た り 参 照 し た り で きる も の . 
これ に 対し て ロー カル 変数 と は , 特定 の プロ ンー ジェ の な か の み で 有効 を も の で , 別 の プロ シー 
ジャ の な か に 同名 の 変数 が あっ て ら 5 関係 し を いも の を 指し ます . 

具体 的 に 考え て み ま し ょ う . プロ ンプ ト 状 態 の と ま , 


2 make “var 1 


と し た 場合 , ど の プロ シー ジャ の な か で も 変数 var は 参照 可能 で , 値 を 代入 する こと も で きま す . 
し か し , プロ シー ジャ ェ の 冒頭 (to 一 に あたる 部 分 ) に ある 変数 は , その プロ シー ジャ が 呼び 出さ れ 
た と きのみ 引数 が 代入 る きれ, これ は ロー カル 変数 と な り ま す . グロ ー バ ル 変 数 で あれ ば , プロ ン 
プ ト 状 態 の と き 変 数 名 を 指定 し て [| を 押す こと で 変数 の 内 容 を 見 る こと が で きま す が , ロー カ 
ル 変 数 で は 不可 能 . プロ ンプ ト 状 能 で は 見 る こと が で きま せん . 

プロ シー ジャ の な か て で て 何 も 宮 言 せ ず に 変数 を 用 いた 場合 , それ は グロ ー バ ル 変 数 と な り ま す . 遂 


に 変数 を 使う 前 に , 
local “変数 名 


を 実行 し て や れ ば ロー カル 変数 に な る わけ で す が , これ は 宣言 し た プロ シー ジャ の な か 及び , そ 
の プロ シー ジェ か ら 呼 ば れ た プロ シー ジェ ャ の な か で も 機能 し ます . 


to sample 
local “var 
make “var 13 
sub 


end 


(の 
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to sub 
Dr :Var 


end 


この 2 つの プロ シー ジャ で 試し て みる と よく わか る の で す が , sample に 呼ば れ た sub の な か 
で も ロー カル 変数 vair は その まま で , 13 と いう 値 が 返さ れ ま す ,. な お グロ ー バ ル 変 数 と 同じ 名 前 
の ロー カル 変数 が あっ た 場合 , ロー カル 変数 が 優先 され ます の て 注意 し て くだ さい . 


トッ プレ ベル 


make "var 


プロ シー ジャ sample 他 の プロ シー ジャ 


local “var 


プロ シー ジャ sub 


了 グロ ー バ ル 変 数 var が 有効 ” | | ロー カル 変数 var が 有効 


図 3-4 ロー カル 変数 と グロ ー バ ル 変 数 


( 3 ) 値 を 返す プリ ミ テ ィ プ 


変数 に 付き 物 の 値 の 話 の つい ぃ で に , 値 を 返す プリ ミ テ ィ プ に つい て る 少し 触れ て お きま し ょ う . 
プリ ミ テ ィ プ に は 2 種類 一 一 何 か 機能 を 果たす も の と 値 を 返す も の が あり ます . 値 を 返す と いう 
こと は , こう し た プリ ミ テ ィ プ は Nm た と えば , 引数 の 整数 部 分 を 返 
す int と いう プリ ミ テ ィ ブ て で 考え る と , 

setalpha int 6.5 
と いっ た 使い 方 が で きる わけ て , 単に , 


7 jnt 7.5 


て 
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3-3 サン プル ・ ア プリ ケー ショ ンズ 
3-3 サン プル ・ ア プリ ケー ショ ンズ 


( 1 ) 三角 関数 の ワザ 


クー トル ・ グ ラフ ィ ッ クス の 説明 で , 円 を 描く に は 多角 形 の 考え 方 を 応用 すれ ば よろ し いと 説 
明 し まし た . し か し , 実は 円 を 描く に は この 他 に も 方 法 が ある の で す , 昔 を な つか し い (な つか し 
か な い ,。 と 言わ れる 方 ち お られ よう が ) 三 角 関 数 , つ まり sin と cos を 用 いた 方 法 で す . さっ そく 


プロ シー ジャ を お 見 せ し ま し ょ う . 


FYTTE LiSt ③-5 


to en1 

: ヨ = 上 po= ヲ ウツ カッ リク エン 

C 七 Cc ラ 

pF 上 ハン ケ イハ イク ツ (1 < 99) ?] 

make "と と q 

【e ヘ ウッ 

make "x9 9 

make "y9 9 

make "a 9 

pu r キ 29 fd cr pd 

] abe 1 "ァァァ 
make "x (cos :a) ※ : ビ 
make "y (sin :a) ※ : と 
make "x1 zixg + :x 
make "y1 : ッ 9 + : ッ 
Setpos Se :x1 s ッ 1 
make "a :a + 2 

i 千 za > 361 pu home pd stop] [go "zzz] 

end 


C う 


(の 
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目新し い 部 分 を 説明 し て ゆき まし ょ う . まず プロ シー ジャ 名 の 次 に ある : (セミ コロ ン ). プロ 
シー ジャ の な か に セミ コロ ン が ある 場合 , Logo は それ 以降 の 行末 まで を 注釈 の た め の 文 章 と 判断 
し て 何 も 実 行 し ませ ん . つま り セ ミコ ロン 以下 は 自分 の た め の 備 忘 録 の よう な も の で , トッ プレ 
ベル に これ を 使っ て プロ シー ジャ の 内 容 を メモ し て お く と , 後々 な に か と 重宝 する も の で す . 

次 に 出 て くる 見 慣れ な い ぃ プリミティブ は label で す . これ は , 最後 の あたり に 見 える go と 一 対 
を な す も の . Logo は , プロ シー ジャ の 内 部 で go を 見 つけ る と , 同名 前 を 持つ label に 無 条 件 
で すっ 飛ん で ゆき , そ こ か ら 実 行 を 始め ます . BASIC の GOTO 命令 と 同じ よう な 使い 方 と 考え れ 
ば よい わけ で す . つま り , 同一 プロ シー ジャ 内 に go と abel の 双方 が あっ て 始め て 機能 する と い 
うこ と で す . た だ 注意 が 必要 な の は , go と abel が 同じ 上 [ ] の な か に あっ て は な ら な いと いう こ 
と で す . また, se と いう プリ ミ テ ィ プ が あり ます が , これ は sentence の 略 で て , ここ で は あと に 続く 

: x1 と :y1 を まとめ て ひと つの リス ト に し て いま す . 


arctan remainder 


quotient 


表 3-4 演算 プリ ミ テ ィ ブ 一 覧 


ここ で , 説明 つい で て に Logo の 演算 機能 に 触れ て お きま し ょ う . まず 最も 基本 的 な 四則 演算 
(オー メ +) は , すでに 用 いた よう に キー* ン で て 表現 され , 小学 校 の 算数 の 時 間 で 習っ た と お り , 
乗算 ・ 除 算 ( メ < エ ) が 加算 ・ 減 算 (キー) に 優先 する の は Logo も 同じ . また , 関係 尊 算 ( ニ > マ ) 
も 常識 どおり に 機能 し ます (た だ し BASIC の よう に く =, く > と いっ た 組合 せ は で きま せん ). こ 
れ ら の 一 般 的 な 演算 を 補完 する プリ ミ テ ィ ブ と し て , すでに 登場 し た int (小数 点 以下 切捨て ) や 
round (小数 点 以下 第 一 位 を 四捨五入 ) の 他 に , 割り 算 を 行っ て 余り を 出し て くれ る remainder 
( リ メ イ ン ダー), 単に 小数 点 以下 を 切り 捨て る だ け の quotient ( ク ォ ー シ ェ ン ト ) 等 が 用 意 さ れ 
て いま す . また , 三角 関数 で 言え 々 ば , た っ た 今 使っ た sin と cos, これ は それ ぞ れ , 与え られ た 数 
値 の sin , cos の 値 を 返す も の で , も う ひ と つ , 逆 三 角 関数 の アー ク ク ン ジェ ント (tan~!(x)) を 
計算 し て くれ る arctan (アー クタ ンジ ェ ン ト ) が あり ます . る ら に , 論理 六 算 用 に は and, or, 
な ァ ) が あり , この ほか に , あと て 出 


キ 


not (コン ピュ ー タ の 入門 書 に ,。 イヤ と いう ほど 出 て きま 


や 
MAN 
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て きま す が , 乱数 を 扱う プリ ミ テ ィ ブ の random (ラン ダム ) と rerandom (リラ ンダ ム ) が , 
Logo に お ける 演算 関係 の プリ ミ テ ィ プ の 代表 格 で し ょ う . 
さて , en1l の プロ シー ジャ で は , setpos を 用 いる と ころ が ミソ だ っ た わけ で す が , 今度 は 少し 


いつ 


由 向 を 変え て , 線 以外 の も の を 使っ て 円 を 描い て みる こと に し ます . 


6 


to en2 
? do モラ ニー ツ カッ リク エン 
C 著 C3 
pr 上 ハン ケイ 人 ルイ クツ (1 < 22) ?] 
make "r Fqg 
C 
make "x9 9 
make " ッ 9 9 
make "a 9 
1 abe 1 "> ァ > 
make ">x (cos :a) え : ビ 
make " ッ (sin :a)  : と 
make "x1 :x9 + :x 
make " ッ 1 : ッ 9 + : ッ 
do se six1 sy ッ 1 
make 'a :a+ 2 
if :a > 361 Fstop] [go "zz] 
end 


ここ て 登場 し た 新しい プア プリミティブ は dot だ け . これ は 御 想 像 どおり , 指定 され た 座標 に 点 を 
打つ 和 働 ほ を 持つ も の で , この と き タ ー ト ルク の 状態 は 変化 し ませ ん , つま り タ ー ト ル が 遠隔 操作 で 
点 を 打っ て ゆく わけ で す が , 描 点 の 範囲 は ター トル グ の 移動 エリ ア と 同じ も の で す . 
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ドッ ト て で 円 を 描け り る な ら , 他 の 別 な も の を 用 いて も 円 を 描け る は ず . 何 を 使う か と 申せ ば , 文 
字 コ ー ド 表 に 出 て いる 文字 (キャ ラク タ ) で , これ は BASIC も Logo も 基本 的 に 同じ. 任意 の 廊 字 
を その 文字 コー ド か ら 返 させ る に は char (キャ ラク ク ) と いう プリ ミ テ ィ ブ が あり , char の 次 
に コー ド 表 の 数 値 を 与え を る こと で 使え ます . この char を 使い テキ スト スク リー ン に 円 を 描い て 
よう 


List 3-7 


to en3 
: テ キス トス クリ ー ン / エッ 
textscreen Cc も 
pr LA ケイ イ 29 (8 〈 12) ?] 
make "r rq 
て 
make 'x9 19 
make "y9 12 
make 'a 9 
1abel "zzz 
make "x (cos :a) ※ :r ※ 1.3 
make "y (sin :a) ※ : し 
make 'x1 ix9 + ix 
make "y1 :y9 - xy 
setcursor Se ix1 :y1 type char 233 
make "a :a + 39 
if ia 〉 359 [stop] [go "zzz] 
end 


8 ューー ミー そ ーー 


この プロ シー ジャ で 注意 し な けれ ば な ら な い の は , テキ スト スク リー ン 上 に 描画 する と いう こ 
と で す . テキ スト スク リー ン で は X 軸 が 縮ん で いる た め 。 補正 を し な けれ ば な り ま せん (1.2 一 1.3 
程度 が 適当 . この 場合 は 1.3 で 補正 し まし た ). また , end の 前 に : a 填 30 と 設定 し まし た が ,。 この 
値 が 小さ けれ ば も っ と 大 量 の キャ ラク ター を 画面 上 に 表示 で きま す . た だ し 余り 小さ くす る と , 


円 を の も の が ゆがん で し まう の て 注意 し て くだ さい . 


欠 
、/ 
9 
、 
、 
トノ 
9 
ト / 


で る る さる < る る < 
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さ て, 2 ミ テ ィ ブ と 演算 を も と に し て , 円 を 描く いく つか の 
方 法 を 使っ な た プログ を 紹介 し て お きま し ょ う . た いし て 難 か し い 手 順 を 踏ま な く と も , 存外 
お ち も し ろ い 図形 を 描け る と いう , Logo の 特徴 を 如 実 に 物語 る も の と 思い ます . 


1 3-8 


to en4 
タグ ィーノ / ルン シク リウ の 
と 化 と っ 
pr [人 ルン ケイ ルイ クツ (1 < 99) ?] 
make "と レロ 
Cc て h 
make ">x9 09 
make "y9 9 
make "a 9 
3 ら =pc 6 
1 abes ] "ラッ > 
make ">x (cos :a) え : と 
make " ソ (gain :a) テ : と 
make "z1 :x9 + : メ 
make "y1 :y9 + j ッ 
Pu Setpos= 3e :x1 : ッ 1 pd 
fd :- + 29 
make "a :a + ア 
i 千 :a > 361 stop [go 'z ァ >] 
ake| 


則 
則 
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お た ayary ! List 3-9 


to en5 

?2 テ ヨ ] / エッ チュ 9 

ct cs 

pr [AA>7 イ 八 イ 29 (1 < 99) ?] 


make "r rq 


(ch』 

make "x9 6 
make "y9 9 
make "a B 
make "c 1 
1abel "zzz 


make 'x (cos ia) ※ ir 
make "y (sin ia) X ir 
make 'x1 :x9 + ix 
make "y1 :y9 + kiy 


Pu 

setpos se (ix1 - ir) ky1 
pd 

setpc 1 

Setx ix1 + i ビ 

Pu 

Setpos se ix1 (:y1 + Fr) 
setpc 13 

pd 

sety :y1 - :F 


make 'a :a+ アイ 


end 
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( 2 ) 数 当て ゲー ム 


ここ ら で ひ と 休み , 頭 の 体操 に 簡単 な 数 当て ゲー ム で も 試し て みて く 〈 く ださい. プロ シー ジャ は 
いた っ て 簡単 。 と に か く , まず は 入力 を . 


3-10 


to kaZu ロ ua 
@ 人 や 
pr [カス "アテ ケ *ー ム ] 
pr ヒ イ ク ツ ?] 
make "m (Fangom 199) + 1 
maka 著 。 1 
1abe 1 - cc 
make 2 ロコ + ィ ワー mmmmnrnrnnnnrF ロ に より 入力 され だ ワー ド を 数 価 と レ て 比較 する だ め に 
ュ 人 人 in > sm Pe オオ を イニ ョ ココ は , ご の よう な 痢 算 を 一 序 行 う 衝 要 が ある 
1i 告 in く im LPCin 寺 上 チイ サイ !]] 
1 填 2zn 三 sm 
Lpr [上 ア タリ !!1] 
(pr :x 上 カイ メ テ " アタ リ ] ) 
aij 七 189 
に aua モ = コ 
make "x ix + 1 
go "cc 
end 


前 の 項 で も 角 れ た 演算 用 の プリ ミ テ ィ ブ が , この ゲー ム グ の 立役者 を 務め て いま す . まず , 乱数 
発生 プリ ミ テ ィ ブ の random . これ は , 引数 と し て 与え られ た 指定 値 に 対し , 0 以上 , 指定 値 未 
満 の 男 囲 で 乱数 を 発生 する 働き ほ を 持ち ます (た だ し 指定 値 が 32767 を 超え た 場合 は この 限り で は な 

,・ ま た 指定 値 が マイ ナス ク の 場合 は 同様 に 0 以下 の 乱数 に な り ま す ). random は 整数 を 乱数 化す 

も の で すか ら , この ゲー ム で は 1 一 100 ま で の の 数値 を 発生 お させ る た め , 0 一 99 ま で の 整数 を 乱発 

生 さ せ (random 100)、 こ れ に 1 を 足し , 1 100 の 整数 値 を 得 て い ます . 次 に 出 て くる 演算 記号 

は くっ = の 3 つ . 今さら 説明 する まで も な い の で す が , これ ら の 記号 を 用 いる こと で , オプ ジェ 

クト 同士 の 比較 が 可能 と な り . こ こ て で 使っ た よう に print の 引数 を , ゲー ム の 判定 文 と し て 返す こ 
と が で きる の で す 。 

また , ここ て 始め て 登場 し た wait は , プロ シー ジェ グ 実 行 を 一 定時 間 だ け 停 止 る せる プリ ミ テ 


ィ プ . この wait の あと に 任意 の 時 間 を 指定 し て や れ ば , その 時 間 だ け 実 行 が 止ま っ て いる わけ で す . 
この 場合 の 時 間 の 単位 は 約 N グ 60 秒 程度 で すか ら , この ゲ ダーム で は wait 180 と いう 指定 な の て 、 
一 度 ゲ ー ム が 終っ て か ら 次 の ゲー ム が 始ま る まで に , お よる そう 秒間 ほど 実行 が 中 断 さ れ て いる わけ 
で す . も う ひ と つ 。 pr :x [カイ メデ アタ リ ] と , 次 の 行 の make "x :x 十 1 は , 何 回 か 
か っ て 答え が 出 た か を , go 一 label の 間 を 繰り 返す ご と に 勘定 し , 画面 に 表示 する 役割 り を 果たし 

て いま す . この ゲー ム , も う 少 し 頭 を 使え ば , 和則 旨 NROCTNT 
も の . ひと つ , 挑戦 し て みて くだ さい 


か 
パ 
7 
の } 
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?kazuate 
カス "アテ ケ "ー ム 
イク ? 


?kazuate 


111 
っ カイ メ テ " アタ リ 


( 3 ) Logo Clock 


ター トル ・ グ ラフ ラフィ ッ クス も か な り わ か っ て きた し , 演算 も 使え る よう に な り , そろ そろ Dr. 
Logo の エキ スパ ー ト に 近 《 な っ て きま し た (と 書い て お こう ). この 辺 で て,、 いま まで の 集大成 
の 意味 を 込め , 少々 複 槍 ' な プロ グラ ム に 取り 組ん で みる ます . 作っ て みる の は , 画面 い 
っ ぱい を 使っ た 時 計 、 それ も アラ ー ム 機能 の 付い た 目覚 

時 計 屋 を 探し た っ て , こん な 珍し い 時 計 は めった に お 目 に か か ら な い . 作る の に それ な り の 芸当 


が 必要 な の で , 以下 に 留意 点 を 書い て お きま す . 


し 時 計 で , デジ タル 表示 まで 付い て くる . 


19 18 35 


Logo CLock wth alarm 
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まず , この Logo に は 時 間 関 数 が 内 蔵 さ まれ て いな い , と いう こと が 問題 と し て 考え られ ます . 
その た め に , この 目覚 し 時 計 の プロ グラ ム で は , wait を 使っ て , 時 間 の 単位 を 作っ て み ま し た . 
wait の 単位 数 値 で 1 60 秒 プロ シー ジャ の 実行 が 停止 さき れる こと を 利用 し て , 時 間 を 調整 する わ 
け で す . な お , この プロ グラ ム で は 最低 単位 は 5 秒 き ざ み で , あま り ア テ に は な り ま せん が , 分 
単位 時間 単位 は 思い の ほか 正確 て, 実験 し て みた と ころ , 6 時 間 に つ き 5 分 程度 の 誤差 が 生じ 
と 

肖 に 注意 し た い の は , Dr, Logo で は エディ ッ ト バ パ バッファ が 思い の ほか 少な いた め , ある 程度 の 
長き る 以上 の プロ グラ ム は , 一 度 に エディット 不可 能 と いう こと で す 。 そこ で , この プロ グラ ム は 


リス ト を 前 半 ,。 後半 の 2 つ に 分 け て 説明 し て ゆ を ます , 
それ で は , ほっ そく プロ シー ジャ ィ を 紹介 し て ゆ ほ まし ょ う . まず は 前 半 に つい て 簡単 に 説明 を 
大 な まず 。 


ot 1 


も O 革 ime inh :nm イマ ノ ララ“ カン フン 
C3 ヨコ e ら p 1 1 七 25 ここ = ら = 革 ヒ っ der 8 
m 七 c 七 enen 
] aba] "= モ 上 ar 
maka "ns 9 
i 千 :nm > 59 
Lmake "nh :nh + 1 make "nm 9] 
if nh > 11 上 maks "nh 9] 
etpc 4 
と モ ((39 ※ snh) + in も (9.5 ※ snm)) 
fd 59 
home 
Setpc 2 
上 (6 ※ :nm) 
fd 89 
home 
3etpc 3 
1i 千 (and :nh = :mh :nm ニ :mm) 
Lmusic] 
repea†t 12 
Lsetcursor [9 9] 
(type :nh nm :ns 上 ] [上] []) 
make "ns sns + 5 
fd 29 bk 29 r+ 39 
ゅ ai 152 
recycle 


cs make "nm knm + 1 


GO "= モ ar レセ 
end 


さて, 何 の た め の プ ロ シ ー ジ ャ か , お わか りり 願い まし た か ? まず 頭 の 方 か ら 見 て ゆく と , label 
*start と , 湊 の make “ns 0 以下 の 行 ,、 こ れ が この プロ シー ジャ の 目玉 商品 で す 。 何 を する か と 


d 1 
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申せ ば , この 数 行 で 1 分 ご と の 変数 の 初期 設定 を 行っ て いる わけ で , 60 分 を 超え た り 12 時 を 粘 え 
た り したら, それ ぞ れ 0 分, 0 時 に 戻さ な く て は 時 計 に な ら な い . そこ で if を 使っ て nm と nh を 
それ ぞ れ 59 と 11 で 大 小 比 較 し て いる わけ で す . ちな み に , 5 秒 ご と に 表示 を 変更 し て いる の は re 
peat 12 以降 の 命令 リス ト . 実際 に 時 の 過ぎ る の を カウ ント し て いる の は , この 命令 リス ト の な か 
の wait で す (時 刻 が うま (合わ な いと き は 引数 の 152 の 値 を 調整 し て くだ さい ). この 繰り 返し を 
抜け る と 分 を 表す 変数 (nm) に 1 を 加え , go “start で 再び 1 分 ご と の 変数 の 初期 設定 に 戻る わ 
け で す . 

wait の 下 に recycle と いう プリ ミ テ ィ プ が 登場 し て いま す が , これ は Logo が プロ グラ ム 実 行 
中 に メモ リ 内 に 発生 する いら な く な っ た デー タ を , 強制 的 に 整理 する 命令 で す . この 命令 を 入れ 
て お か な いと , Logo は 必要 に 応じ て 適当 な タイ ミン グ で ,、 こ の デー タ の 整理 を 行い ます (ター ト 
ル ・ グ ラフ ィ ッ クス 実行 中 に , ふと カメ さん が 休憩 する の に 気付 いた 方 も 多い で し ょ う ). これ が 
適当 な 間隔 で 発生 する と 時 刻 に 狂い が 生 し る の で , 強制 的 に 実行 し て いる の で す . また , ここ で 
初め て 登場 し た プリ ミ テ ィ プ と し て , 最初 の 行 に ある setborder が 挙げ られ ます . これ は 読ん で 字 
の と お り で , ボー ダー エリ ア の 色 を 指定 する プリ ミ テ ィ ア ブ , 引数 は setpc と 同じ カラ ー コ ー ド に 対 
応 し て いま す . で は , 続き を 見 て み ま し ょ う . 


ー ダ ー エ リア 


図 3-5 ボー ダー エリ ア 


に と つつ 
還 間 間 55ETEDSSmEEST マー ビー ャ ー 


List 3-12 


七 O m セ も 

pr [メサ “マラ ラ カケ 7 フス 】 ? 〈(y / n)] 

if equalp rc 'y 

[type [ナン ラ " ニニ 2] mass "mh と q 
ャ yp っ [ナン フン ニニ ? コ make "mm rq] 
[make "mh 9 make "mm -1] 

end 
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to enen 

? モジ ルン 

setcursor [19 1] type "12 
ge も cur5or [上 12 2] type "11 
ョ etcursor [27 2] type '1 

っ etcursor [7 6] type "19 

ge て tcursor [32 6] type "2 

getcurgor [5 12] type "9 

=etcursor 上 34 12] type "3 
っ らら tc と uF5or [7 17] type "8 

5etcursor 上 32 17] type 
ら Sc 上 こり Sor 上 12 21] t ツ pe 
うら 上 上 と uF ら 5or 上 [27 21 ] t ツ pe 
らら 上 こと u ビ ョ or [上 29 23] セッ ワ ロ ら 
end 


い 唄 ) 


七 O muS1 と 

repea キ 3 [tones 上 [13 299 17 299 29 299]] 
setalpha 14 

end 


これ で お し まい , 目覚 し 時 計 の 完成 で す . 見 慣れ な いい プリミティブ は , まず rc. これ は readchar 
(リー ドキ ャ ラク ク ) の 短縮 形 で , キー ポー ド か ら の 1 文字 入力 を 受け 付け ます . rq と 似 て いま す 
が , rq が ワー ド を 返す の に 対し , rc は キャ ラク ク を 返す も の で , この rc が 実行 され る と , キー ポ 
ー ド か ら の 入力 が ある まで , プロ シー ジェ ク グ 実 行 は 中 断 を れ ま す . readchar は , readquote と 違 
い リ ターン の 入力 を 受け ませ ん の で , キー ポー ド を ひと つ 押 す と その 押さ れ た コー ド を 返し て き を 
ます . また , 押さ れ た コー ド に 対応 する キャ ラク ター が 画面 に 映る (これ を エコ ー バ ッ ク と 呼び 
ます ) こと も あり ませ ん の て 念 の た め . 

も う ひ と つ 新 顔 の プリ ミ テ ィ ブ は , equalp( イ コー ルピー).。 与え られ た 2 つの オプ ジェ クト が 

等 し いか どう か を 判定 し ます . 等 し けれ ば , TRUE. そう で な けれ ば , FALSE を 返し ます .。 こ 
の equalp に より , 今 説明 し た プリ ミ テ ィ プ rc の 値 が y と 等 し いか どう か 判定 し て いる わけ で , 
結果 と し て 関係 演算 子 で ある 三 と 同じ 働き を し て いる の で す . 

と ころ で , 時 計 の 文字 盤 を テキ スト スク リー ン に 描い て いる こと に 気付 か れ た で し ょ うか . こ 
れ は , テキ スト スク リー ン を 使う こと に より , cs の 際 に も 文字 が 消 を な いよ うに し て いる の で す . 


な お 最後 の プロ シー ジャ に ,music と いう 名 前 を 与え まし た . これ は 文字 どおり 音楽 を 担う プロ 


ンー ジャ で ある こと を 意味 し , 目覚 し の 役割 り を 果たし て いま す . ここ で 使わ れ て いる tones( ト ー ン 
ズ ) と いう プリ ミ テ ィ ブ が 音楽 の 演 奏 機能 を 持っ て お り , その あと に 続く 引数 が , 音程 と 音 長 を 
指定 する 音符 の リス ト に な っ て いま す . この 音符 で 言う と , 


tones [13 200 17 200 20 200] 
に 09 交 n 


ド 音 長 ミ 音 長 ソ 音 長 
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2 14 16 。 19 21 23 47 


1 3 12 13 15 17 18 20 22 24 25 48 49 
陸上 上 22 NG コ 9 5 JE 


図 3-6 tones プ リ ミ テ ィ プ に お ける 音階 デー タ 


NG 


を 3 回 繰り 返す と いう こと で , 各 音 程 に 加え て 付け られ た 音 長 は 、 200 プ 1000 秒 ずつ で ある こと を 
意味 し ます ( 音 長 1 単位 は 1 /1000 秒 , ms に 相当 し ます )、 こ の music プロ シー ジャ が 。 トッ プ 


レベ ル の time プロ シー ジャ の な か に ある 判定 文 、 
if (and :nh = :mh :nm = :mm) [music] 


に 対応 し て いる わけ で , and に よっ て , 目覚 し を セッ ト し た 時 刻 と 現在 の 時 刻 が 一 致し た 場合 に 
(TRUE の と きま), music プロ シー ジャ を 実行 する の で す . この music プロ シー ジェ に は 、 setalpha 


14 が 最後 に 付け 加え られ て お り 、 目覚 し が 鳴っ た あと は 時 刻 の デジ クル 表示 も 点滅 を せ , それ と 


知ら せる よう に し て ある あります. それ で は , 実際 に 使っ て みて くだ さい . 


? time 現在 時 現在 分 [.」 


で スタ ー ト し ま 


メサ "マシ う カケ マス 2 カ 7 (y / n ロ ) 
リウ クジ Sd 
ナシ クジ ーー 7 に 


メサ "マシ ラ 2 7772 カ 7 7? (y /n ロ ) メサ 9 マシ ラ 7 カ 7 マ 7 スカ ?2 (y / n) 
カン 2 だ ん 


アラ ー ム を 忠 ら すか きい て くる y を 選ん で 
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11 時 を 過ぎ る と デジ タル 表示 が 点滅 する 


これ まで も た び た び 試み た よう に , Logo で は プロ シー ジャ の な か に , 他 の プロ シー ジャ を 呼び 
出し て , 実行 きせ る こと が で きま す .。 つま り , ひと つの プロ シー ジャ を プリ ミ テ ィ プ の よう に 使 
うこ と が で きる わけ で ,。 この よう に プロ シー ジェ が 他 の プロ シー ジャ を 呼び 出し て 実行 する こと 
を ,、 プロ シー ジャ の コー ル と 言い ます . また , すでに 見 て を また よう に , Logo に は go 一 label を ど を 
使わ な く と も ,。 プロ シー ジェ の な か に 自分 自身 を 定義 し て , 繰り 返し 実行 を 続け る と いう 能力 も 
あり ます . まァ , プロ グラ ム を ひと つの 輪 に 見 立て , 途中 に 適当 に 自分 自身 を 置く こと で , 実行 
を 繰り 返し て ゆく と 考え て よい で し ょ う . この よう を な 機能 を リカ ー シ プ コー ル (再帰 呼出 し ) と 
呼び ます . この と き , 何 も 指定 し な けれ ば プロ シー ジャ は 無限 に プロ グラ ム を 実行 し 続け ます が 
倍 止 の た め に は |CTRL +|ESC| を 押す ), 終り の 条件 を 正しく 設定 し て や る こと で , 有限 回 数 の 
実行 を 得 ら れ ま す . また , 自分 自身 と プロ シー ジャ 内 で 呼び 出し , 定義 で きる わけ で すか ら , 使 
ロ シ ー ジ ャ に 関数 の 機能 を 持た せる こと も 可能 と な り ま す . 


Pt ポ - 上 iSt 3-13 


ifT sn = 9 Lop 1] 
Lop :n ※ fac zn 一 1] 


リス ト 3 - 13 に 示し た 例 は , op (output) と いう , プロ シー ジャ の 実行 を 終了 さ 
値 を 実行 結果 と し て 返す アリ ミ テ ィ プ を 用 い 、。 リ カー シ プ コ ー ル を 使う こと で 階 乗 を 求め る プロ 
シー ジャ に な っ て いま す . この よう な 使い 方 を さら に 発展 し て 考え る と 、 プロシージャ 同士 の 呼 
ひび 合い と 再帰 的 呼び 出し を 組み 合わ せ て 使う こと も で きる よう に な りり) ます . 
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図 3-77 ドラ ゴン 曲線 


汰 に ドラ ゴン 曲線 を 描い て み ま し ょ う . ドラ ゴン 曲線 は 、 ヒル ベル ト 曲 線 、 シ ェ ル ピン スキ ー 
曲線 と 並び 称 さ れる メジ ャ ー な 再帰 曲線 で す . 図 3- 8 に 示す よう に , n 汰 の ドラ ゴン 曲線 は n- 1 
決 の ドラ ゴン 曲線 の まっ す で な 部 分 を 一 端 か ら 順 に 右左 右左 と 90 度 に 曲げ けた も の で す . また , ド 
ラゴン 曲線 を 具体 的 に 作る 方 法 と し て , 図 3 - 9 に 示す よう) に 、 細 長い 抵 を 何 回 みか 折り曲げ, 折り 
し ろ を 90 度 に する と いう 方 法 が あり ます .n 回 折り 曲げ て 広げ る と, この 紙 の 長い 方 の 辺 が n 湊 の 
ドラ ゴン 曲線 に な り ま す . 


図 3-8 0 次 か ら 4 次 の ドラ ゴン 曲線 
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ーーー ツ 
7 


隊 陸 半 、。。 
ドラ ゴン 曲線 
折り 曲げ る 


広げ る 
83Lg ア 2 凍 ーー 2 
六 の 


図 3-9 紙 を 折っ て 広げ る こと で ドラ ゴン 曲線 を 得る 


リス ト 3- 14 に ドラ ゴン 曲線 を 描く プロ グラ ム を 示し ます . トッ プレ ベル は , dragon と いう プロ 
ンー ジャ で す . dragonr と dragonl が 互い に 呼び 合っ て いま す が ,。 こう いう 再帰 呼出 し を , 相互 再 
帰 と いい ます . 図 3- 8 を よく 見 て , プロ グラ ム を 読ん で みて くだ さい . 


ScifRSiasietsiiszeissspseszegisosE 


to dragon :order 
CS hh 

dragonr : order 
end 


to dragonr :order 


1i 千 sorder = 9 
[fd 2] 
Ldragonr :order - 1 
]t 99 
dragon1 zorder 一 1 
end 


to dragon] :order 
ュ 千 sorder = 9 


[fd 2 

[dragonr :order 一 1 

Ft 99 

dragon1l sorder 一 1 
end 
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\ 


?2dragon7 
の 


7 次 の ドラ ゴン 曲線 を 得る 


と ころ で , リカ ー シ プ コー ル の 用 法 は , 帰納 的 数 学 に 少々 似 て お り , 普通 の BASIC な ど に は 見 
られ な い 機 能 て で す . LISP 系 の 言語 に 特徴 的 な この 機能 は ,、 プロ シー ジャ の 実行 に 際 し , 自分 自身 
の 定義 を 参照 する 定義 の 方 法 と 考え る こと が で きま す . ドラ ゴン 曲線 で 見 た よう に , コー ル と り 
カー シ プ コ ー ル を 上 手 に 組み 合わ せる こと に より , Logo に か な り 大 き な 仕 事 を させ る こと が 可能 
と な り ま す . この 機能 を 使う 使わ な いで , Logo に よる プロ グラ ミン グ の 限界 は 大 きく 変っ て くる 
で し ょ うし , 次 章 で 述べ る リス ト 処 理 に し た と ころ で , リカ ー シ プ な 用 法 が な けれ ば 威力 が 半減 
し て し まい ます . また , LISP 系 言語 に と っ て , 関数 の 再帰 的 定義 は 基本 的 な 概念 で ある と いう こ 
と も , 覚え て お いて 損 は な いと 思い ます . 


この よう に , copyon は , 画面 に 現れ る すべ て 
LO0gEO0 の プリ ンタ 出力 の 文字 を 印字 する 機能 を 持っ て いる の で , と き 
に は 不都合 を 起こ すこ と も あり ます . この 状態 
Logo に は , 画面 プリ ント アウ ト 用 プリ ミ テ ィ で プロ グラ ムリ スト を 出力 し よう と する と 。, 
プ と し て , copyOn が 用 意 さ れ て いま す . Copyon poall や copyoff と いっ た プロ グラ ム に 関係 な い 文 
字 が 印字 され , あま り 体 裁 が よく あり ませ ん . 
すべ て の 文字 が プリ ンタ に 出力 され ます (edt きれ いな プロ グラ ムリ スト を 印字 し よう と する 
モー ド を 除く ). 通 常 , Logo の リス ト を プリ ント と , Logo に 頼ら ず に Sony Fier に お 願い し た ほ 
アウ ト す る 場合 , copyon を 実行 し た の ち po * ブ う が 賢 明 で す . Sony Filer の PRINT と いう コマ ン 
ロ シ ー ジ ャ 名 , あ る い は poal を 使っ て 。 プ ログ ド を 思い 出し て くだ さい . これ は , アス キー 形 
フラム リス ト を 画面 に 表示 し な が ら , 同時 に プリ 式 で 記録 され た ファ イル の 内 容 を プリ ント アウ 
ンタ に も これ を 出力 し ます . copyon を 実行 する ト す る 機能 を 持っ て いま す . シス テム メニ ュー 
と , 以後 画面 に 出力 する も の が その まま プリ ン 画面 上 で 指定 の Logo フ ァイル を 選ん で PRINT を 
タ に も 出力 され ます . この 状態 か ら 抜け 出す に 実行 すれ ば , 余分 な も の の な いき れい な プロ グ 
は , copyoff と いう プリ ミ テ ィ ブ を 使い ます . ラム リス ト が 手 に 入り ます . 
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42 草 LOgO リ スト 処理 


Logo を 称し て 人 工 知能 言語 と 呼ぶ 人 が いま す . その 大 半 が , Logo の リス ト 処 理 能 力 を 指し て そ 
う 唱 えて いる よう で , これ は Logo を 象徴 する 機能 で ある と 言え な くも あり ませ ん (も っ と も , 本 
格 的 に A I を や っ て いる 人 が 聞い た ら 腹 を 立て る で し ょ うな アァ). 実は ,. いま まで 試し て きた プロ 
グラ ム の 中 に も , リス ト 処 理 を 使っ た も の が いく つか あり まし た . 賢明 な 読者 諸兄 は すでに お 気 
付き の こと と 思い ます が , この リス ト 処 理 と いう シロ モノ , 無意識 の うち に 結構 使 を ん を て し まう も 
の な の で す . それ は , ひと つ に は Logo の 言語 と し て の 使い 易 さ に 起因 する も の と 思わ れ ま す ( 言 
っ て みれ ば 単純 な の で す ) し , さら に は プロ グラ ミン グ の 際 , 目的 優先 で プロ シー ジャ を 組み 立 
て て ゆく と いう , Logo の 特徴 も また , 物 を 言っ て いる の か も し れ ま せん . いずれ に し ろ , リス ト 
処理 を 積極 的 に 活用 する こと で , 情報 の 管理 や 検索 と いっ た デー タ 関 係 の 処理 . ま た ちょ っ と 気 
の きい た 知 的 (に 見 える ) な ゲー ム 等 に 応用 する こと が で き , 存外 便利 な 機能 で ある と 思わ れ ま 
の 

Logo 関 係 の 最後 の 章 で ある 本 章 で は , この リス ト 処 理 に 関す る 説明 を 行い ます . ター トル ・ グ 
フフ ィ ッ クス と 並ぶ Logo の 特徴 と も 言え る リス ト 処 理 . し っ か り マ スタ ー し て くだ さい . 


4-1 リス ト 処 理 関連 の プリ ミ テ ィ ブ 


Logo の 扱う デー タ の 単位 と し て , ワー ド と リス ト が あり ます . これ ら に つい て は , すでに 多少 
説明 し て いま す が , リス ト 処 理 の 解説 を 始め る 前 に , 復習 し て お きま し ょ う . 
ワー ド と は 要する に 文字 の 集まり と 考え れ ば よく て , た と えば 


abcd 
3456 
3 A 4 ア 


と いっ ただ も の が ワー ド で す . 記号 の な か に は ワー ド と し て 使え な い (と いう より は 。 使い に くい 
と 言う べき か ? ) 文 字 が 14 文 字 ほ ど あ り ま す が , これ ら に つい て は APPENDIX に 載せ た エス ケー 
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プ 文 字 の 説明 を 参照 し て いた だ く と し て , 次 に リス ト の 説明 . 


さき ほど か ら リ スト 処理 と いう 言葉 を 何 度 も 使っ て いま す が , この リス ト と は , ワー ド を ひと 
まとめ に し た も の と 定義 で き て , 


[abc] 
[Sony Filer] 
[アカ サタ ナ ABC 1 2 3] 


な ど が リス ト で す . リス ト に は , 中 身 が 空い うこ と も あっ て , これ は , 
旧 謙 

と いう 形 で 表し ます . また リス ト の 中 に リス ト を 置く こと も 可能 で , 
[abc def [ghi Imn] ] 


な ど と いう 形 の も の も リス ト と 呼び ます . 

実際 に リス ト 処理 を 行う 場合 は , ワー ド が 無 意 味 な 文字 の 並び に な る こと は まず な いわ け で , 
リス ト と は , 意味 を 持つ デー タ が 一 定 の 目的 に 従っ て 集積 し た も の と 考え られ る で し ょ う . 

リス ト 処 理 と は , 乱暴 に 言っ て し まう と , デー タ の 固まり の リス ト に 対し て , あれ これ 手 を 出 
し て 操作 を 行う こと を 指す も の で す . Logo に は , 上 述 の よう な リスト を 作り 出し た り , また 任意 
の り ス ト か ら 目 的 に 見 合っ た デー タ を 取り 出し , 判定 し , 加工 また は 削除 し た り と いう 機能 が 備 
わっ て いる た め , 任意 の デー タ に ダイ レク ト な 加工 を 施す こと が で きる わけ で す . ま ア , 具体 的 
な 説明 を し な いと わか り に くい の で , と に か く リ スト 処理 を 試み みる ため に , プリ ミ テ ィ ブ を 紹介 
し て ゆく (こと に し まし ょ う . 
(1 ) 要素 関係 の プリ ミ テ ィ ブ 

デー タ , つ まり ワー ド な り リ スト な り を , オプ ジェ クト と 呼び ます . この オプ ジェ クト を 構成 
する 単位 リス ト で あれ ば ワー ド , また ワー ド で あれ ば 文字 に 当たり ます が , これ を 要素 と 言い 
ます . つま り リ スト の 要素 は ワー ド , ワー ド の 要素 は 文字 だ と 言い 換え る こと が で きる で し ょ う 
(リス ト の な か に リス ト が ある と き は , 含ま れる 方 の リス ト が 要素 に な り ま す ). オプ ジェ クト か 


ら 要 素 を 入れ た り 出し た りす る こと で リス ト 処 理 は 初め て 機能 する わけ で , まず は この 出し 入れ 
に 関す る プリ ミ テ ィ プ を , ひ と と お り 紹 介し まし ょ う (重複 も あり ます が , 念 の た め に 全部 を 一 一 ). 


first 


まず 最初 は first で す . これ は オプ ジェ クト が ワー ド で あれ ば , 最初 の ひと 文字 を 返し ます . 
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?first ^ascii 


じ I 
これ が リス ト に な っ て くる と , 最初 の 要素 を 返す こと に な り , 


?first [ascii no books] 


aSCii 


と な り ま すし , リ スト の な か の 先頭 に リス ト が ある 場合 な ら ば , で くわ し た リス ト を 返し て よこ し 
ます 。 


?first [ [books] wa ascii] | 
[books] 


さら に first を 2 つ 続 け て 使用 する と , 最初 に で くわ し た 要素 か ら , さ ら に その 先頭 の 要素 を 取り 
出し て きま す . 


? first first [ [ascii no books] wa honya de]|[J 


asCii 


butfirst 
次 に bf (butfirst) 見 た だ け で 何と な 〈 く 働き が わか り そ う な この プア プリミティブ は , 最初 に 出合 っ 
た 要素 を 探し 出し , それ を 除い た も の を 返し ます . 


?bf [ascii no books] [| 

[no books] 

?bf [ [ascii no books] wa honya de]|J| 
[wa honya de] 


item 


3 番目 の item は , 指定 番号 を 与え る こと で 任意 の 要素 を 取り 出し て きま す の で , 


?item 2 [ascii no books wa honya de][』| 
no 
?item 2 [ [ascii no books] wa honya de]|』| 


W3a 


これ て で 要素 関係 の プリ ミ テ ィ プ は 終り . リス ト 処 理 と いっ て も , この 程度 な ら た いし た こと は 
あり ませ ん . 
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で は 決 に 、 こ こま で の プリ ミ テ ィ プ ブ を 組み 合わ せ た プ ロ シ ー ジ ャ を 見 て み ま し ょ う . 次 の プロ 
シー ジャ が 何 を 意味 する の か , お わか り 願 えま すか な ? 


RNNSEESSSSH List 4-1 


to elements 1 
1 て emo て yp *| 
Lstop ユ 1 
[pr first :] 
elemsnts bf :] 


end 


emptyp は , 要素 数 が 0 か 否 か を 判断 し て 返す 働き を 持つ プリ ミ テ ィ ブ . つま り 空 の オブ ジェ ク 
ト か どう か を 判断 する の で す . この プロ シー ジャ を 実行 する と , 


?elements 「 


2e1l ements [アカ サタ ナ ABC 123] 

アカ サタ ナ 

ABC 

123 

?elements [] 

?e] ements Labc def [hi」 1mn]] 
abc 

def 

hi」 1mn 

? 


リス ト 4-1 の 実行 例 


と な り ま す . つま り 要 素 を 順番 に 取り 出し, 出 た 順に 並べ て ゆく も の で し た . で は 似 た よう な も 
の を も う ひ と つ . 


還 間 EEM2SSgS5S List 4-2 


to last 』] 

if emptyp bf :1 
Lop first :]] 
Lop last bf 』]] 

end 


4-1 リス トト 処理 関連 の プリ ミ テ ィ ブ 


ここ で 使っ て いる op は ,. リ カー シ プ コ ー ル の 説明 の と きも 出 て きた よう に , プロ シー ジャ の な 
か だ け で 機能 する 命令 で ,、 そ の 引数 の 値 を プロ シー ジャ の 結果 と し て 返し . プロ シー ジャ か ら 抜 
け 出 す プ リ ミ テ ィ ブ で す . そこ で この プロ シー ジャ は , オプ ジェ クト か ら 最 後 の 要素 を 取り 出し 
て 表示 する こと と に な り ま 9 


2?21as+ "abc 


C 
?] asa モ [アカ サタ ナ ABC 123] 

123 

?] ast Labc def Chi 」 1mn]] 
Ehi 」 1mn] 

の 


リス ト 4-2 の 実行 例 


( 2 ) 加工 関係 の プリ ミ テ ィ プ ブ 


次 に , ワー ド や リス ト の 合成 , 追加 と いっ た 機能 を 持つ プア プリミティブ を 紹介 し て ゆく こと に し 
まし よう 。 


word 


まず は , バラ バラ の ワー ド を ひと まとめ に する (合成 する ) 命令 , word か ら . 


?word “SMC 777|J 

SMC777 

? (word “SEIKO “no “PASOKON) [| 
SEIKOnoPASOKON 


word は , 基本 的 に は 2 つの ワー ド を 引数 と する プリ ミ テ ィ ブ で , これ を 1 つの ワー ド に し ます . 
引数 が 2 つ 以 外 の と き は , この 例 の よう に プリ ミ テ ィ プ ブ と 引数 全体 を 1 組 の カッ コ で くく る 必要 
が あり ます . 


list 
次 に list.、 こ の プリ ミ テ ィ ブ も 基本 的 に 引数 は 2 つ で , この 2 つの 値 を 要素 と する リス ト を 返し 


ます . 引数 が 2 つ 以 外 の と き は , word と 同様 に 全体 を カッ コ で くく る 必要 が あり ます . 


103 


4 章 Logo リ スト 処理 


? (lst “SMC777) 


[SMC777] 
? list "matsuda `seiko| | 


[matsuda seiko] 
? (lst SEIKO `no PASOKON) 
[SEIKO no PASOKON] 


この 場合 , 引数 の な か に リス ト が 入っ て いて も か まい ませ ん . 


? (list “SMC777 “wa [SEIKO no PASOKON] ) 
[SMC777 wa [SEIKO no PASOKON] ] 


sentence 
list と 似 た プリ ミ テ ィ プ に sentence(se) が あり ます . ]ist と の 違い は , 引数 に リス ト が きた と き 


に は っ きり し ます 


?se "matsuda “seiko|J 


[matsuda seiko] 
? (se "SMC777 "wa [SEIKO no PASOKON] ) 


[SMC777 wa SEIKO no PASOKON] 


つま り , 引数 に リス ト が きた と き に は , 外側 の プラ ケッ ト を は ず し て , リス ト は に 合成 する の で 


す . 次 の 例 も よく 〈 見 て お いて 〈 く だ さい . 
? se [SMC777] [wa [SEIKO no PASOKON] ] 品 
[SMC777 wa [SEIKO no PASOKON] ] 


fput 
加工 関係 の 最後 の プリ ミ テ ィ プ は fput で す . これ は , 
て , 2 一 目 の 引 数 の 先頭 に 挿入 する プリ ミ テ ィ ブ で す . se と 似 た 働き と 思わ れ が ち で す が , fput の 


場合 は 要素 を 追加 する た め の プ リ ミ テ ィ プ ブ と 考え て お 〈 と 間違い な いよ う で す . 


1 つ 目 の 引数 を 2 つ 目 の 引数 の 要素 と し 


?fput "matsuda “seiko | 


matsudaseiko 
?fput [SMC777] [wa [SEIKO no PASOKON] ] [| 


[ [SMC777] wa [SEIKO no PASOKON] ] 
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( 3 ) ワー ド 処 理 関 係 の プリ ミ テ ィ プ ブ 


ワー ド と いう , 比較 的 小さ な デー タ の 単位 を 引数 と し て , ちょ っ と し た 処理 を 行う プリ ミ テ ィ 
プ が ある の で , 紹介 し て ゆき まし ょ う . 


ascii と char 

ascii と いう プリ ミ テ ィ ブ は , 与え られ た ワー ド の 先頭 の 文字 の キャ ラク タコ ー ド を 引っ ぱり 出 
し て きま す . キャ ラク タコ ー ド は , 3 章 で も 説明 し た と お り , 文字 に 対応 する 数 値 の こと で , 
BASIC で 使う キャ ラク タコ ー ド と ほぼ 同じ で す (APPENDIX 参 照 ). 


?ascii “al 
97 

?ascii “asciil | 
97 


これ に 対し て char は . キャ ラク タコ ー ド を 引数 と し て , それ に 対応 し た 文字 を 探し て くる も の 
で す . 


?char 97 


a 


?char 233 
4 


lowercase と uppercase 


lowercase(lc) と uppercase(uc) は , 共に 以下 に 続く ワー ド 中 の すべ て の 文字 を , それ ぞ れ 小 文 
字 な いし 大 文字 に 変換 し ます . 


?lc “ASCII 


aSCii 


?uc “ascii 
ASCII 


これ ら の プリ ミ テ ィ ブ は , すでに 使っ て きた , rq (readquote) や rc (readchar) と 組み 合わ せ 
て 使う と ひと きわ 威力 を 高め ます . また デー タ の 表示 等 の 際 に も 重宝 する 機能 で す . 
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( 4 ) 調査 役 プ リ ミ テ ィ プ ブ 


リス ト 処 理 を 行う 際 は , ワー ド や リス ト , ある い は 数 値 (数 字 か ら な る ワー ド を わざ わざ こう 
呼ぶ ) な どの デー タ の 形式 が プリ ミ テ ィ プ も し く は プロ シー ジャ を 実行 きせ る 上 で 重要 な 意味 
を 持ち ます . た と えば , 引数 が 数 値 で な けれ ば な ら な い プ リ ミ テ ィ ブ に 数 値 で な いも の を 与え て 
も , デー タ の 形式 が 異な る た め に 実行 は され ませ ん (当り 前 だ )、 こ の た め に , 入力 デー タ や や 変数 
の チェ ッ ク と いっ た も の が 避け られ な いわ け で , その た め の プ リ ミ テ ィ ブ が 用 意 さ きれ て いる の で 
す . 


listp 
listp は 引数 が リス ト か 否 か を 判断 する も の で , 


?listp “ascill| 
FALSE 
?listp [ascii] | 
TRUE 


の よう に , 引数 が リス ト の と き は TRUE, そう で な いと き は FALSE と いう 値 を 返し ます . 


wordp 


wordp は listp と 似 た よう な も の で , 判定 対象 が リス ト か ら ワ ー ド に 変る だ け . 


? wordp ascii|| 
TRUE 

? wordp [asci] [| 
FALSE 

? wordp 1 
TRUE 


numberp 
numberp は オプ ジェ クト が 数 値 と し て 扱え る か 否 か を 判定 する も の で , リ スト に な っ て いる 場 
合 は 否 と 返し て きま す . 


?numberp 007 
TRUE 
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2 numberp 007|[』 
TRUE 

? numberp [007] 
FALSE 


emptyp 

デー タ 形 式 も 重要 で す が , リス ト や ワー ド が どん な 状態 に な っ て いて , 要素 が どん な 具合 な の 
か ,。 と いう の も 大 切な 要件 と な り ま す . emptyp は 前 述 し た と お り 引 数 (オプ ジェ クト ) が 空 か ど 
うか を 判定 し ます . 


?emptyp [ ]| 骨 
TRUE 

?emptyp ^|[ 
TRUE 


equalp 
2 つの 引数 (オプ ジェ クト ) 同士 が 相 等 で ある か 否 か を 判断 する プリ ミ テ ィ ブ は equalp で す . 
これ は = と いう 記号 で も 代用 で き て , 


? equalp [ascii] [ascii] [| 
TRUE 

? “ASCII ASCII[ | 

TRUE 

? equalp [ascii] ascii[』 
FALSE 

? equalp [seiko] [SEIKO] | 
FALSE 


と な り ま す . 
memberp 
1 つ 目 の 引数 (オプ ジェ クト ) が 2 つ 目 の 引数 (オプ ジェ クト ) の 要素 か どう か を 判定 する ブ 


リ ミ テ ィ ブ が , memberp で す . この 判定 の あと に where を 付け 加え る と , 最初 の オプ ジェ クト が 
決 の オプ ジェ クト の 何 番 目 の 要 素 な の か まで 調べ る こと が 可能 で す . 
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? memberp ^se `seiko[ 

TRUE 

? where|J| 

1 

? memberp [PASOKON] [SEIKO no PASOKON][J 
FALSE 

? memberp “PASOKON [SEIKO no PASOKON][ 
TRUE 


count 


count は 引数 で ある オプ ジェ クト の 要素 の 数 を 調べ て くれ る プリ ミ テ ィ ブ で す . 


? count matsuda| | 

7 

?count [SMC777 wa [SEIKO no PASOKON] ][』| 
3 


Shuffle 

最後 に , 調査 役 と は 逆 に ,。 デ タラ メ を 作り 出す プリ ミ テ ィ ブ を 紹介 し て お きま し ょ う . 与え ら 
れ た リス ト の 要素 を デタラメ (ラン ダム と 言え 々 ば 聞こ え は よい が ) に 並べ 換え ,. も っ と も らし く 
リス ト の 形 で 返す 働き を 持っ て いま す . 


? shuffle [SMC777 wa SEIKO no PASOKON]|[J| 
[SEIKO SMC777 no wa PASOKON] 


( 5 ) デー タク 管理 プ リ ミ テ ィ プ ブ 


Logo に は , 生ま れ な が ら の 情報 管理 者 と し て の 資質 が 備え を られ て いま す . みず か ら の な か て で 情 
報 を 登録 し , 加工 し た り 検 索 し た り が で きる の で す . それ は 主 に , Logo が プロ シー ジャ や 変数 の 
内 容 を , プロ パテ ィ (性 質 と いっ た よう な 意味 ) と し て 内 部 的 に 登録 し , 管理 する 能力 を 備え て 
いる こと に より ます . プロ パテ ィ は 名 前 (登録 名 ) と プロ パテ ィ 名 , それ に 内 容 (リス ト , ワー 
ド 、 数 値 ) に よっ て 構成 され , 読み 書き は 自由 に 行え を ます. 

Logo に は ユー ザー が 設定 する プロ パテ ィ の ほか , シス テム 自身 で 作る プロ パテ ィ も あり , それ 
が Logo 自 体 を 形成 し て いる と も 考え られ ます . つま り , 変数 を 扱う 変数 プロ パテ ィ や , プロ シー 
ジャ を 扱う 定義 プロ パテ ィ な どの , いわ ゆる シス テム プロ ッ パティ が, Logo を 支え て いる わけ で す . 
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この シス テム プロ ノッ パ ティ は 合計 10 個 あり , いずれ も 先頭 に ピリ オド が 付い た 3 つの 大 文字 で 表現 
され て いま す (シス テム プロ ッ パテ ィ に 使わ れ て いる プロ パテ ィ 名 は , ユー ザー が 作る プロ パテ ィ 
名 に は 使え ませ ん . 詳し く は APPENDIX を 参照 し て くだ さい ). 

プロ パテ ィ を 縦横 に 使う こと で , Logo は それ 自身 , デー タベース と し て の 機能 を 果たし ます . 
結構 大 き な デ ー タ を 扱う こと も 可能 な た め , ぜひ と も 習熟 し て お きた い Logo の 機能 と 言え る で し 
ょ う . で は , プロ ン パパ ティ 関係 の プリ ミ テ ィ プ を , ざっ と 紹介 し て ゆき ます . 


ここ の 内 容 を 見 る に は ある プロ パテ ィ 名 に 内 容 が 登録 され て いる 名 前 を リス ト ア ッ プ する に は 
?gprop "アン ドウ ゞ phone 剛 ?glist "address 
[111 一 11111 [アン ドウ コン ドウ ] 


sle | 本 
ECIHETZC22 了 EE 


すべ て の と ころ が うま っ て いる 


ある 名 前 に 登録 され て いる も の を すべ て 見 る に は 


と は 限ら な い 
?plist “コン ドウ 
[birth[S37 12 15] address [シン ジュ ク ク ここ に 【[ ナ カノ ク ワカ ミヤ ] と 書き 込む に は 
シモ オチ アイ ] phone [333 一 3333]]. ?pprop "イケ ウチ “addrss [ナカ ノ ク ワカ ミヤ ] 


図 4-.1 プロ バテ ィ の 使用 例 


PProP < 名 前 > く < プロ パテ ィ 名 > < 内 容 > 

pproD は , プロ パテ ィ に デー タ を 登録 する た め の プ リ ミ テ ィ プ で す . プロ パテ ィ 名 に 内 容 を 加え 
て リス ト に し , 任意 の 名 前 の プロ パテ ィ リ スト と し て 登録 する 機能 を 持っ て いま す . 
だ と (ば) 


? pprop "SMC “maker “Sony 
? pprop “SMC “CPU “2Z80 


と する と , SMC と いう 名 前 の プロ パテ ィ リ スト は , 
[CPU Z80 maker Sony] 


3 り 圧 3S 床 


109 


4 意 Logo リ スト 処理 


gProP 〈 名 前 >〉 < く プロ パテ ィ 名 > 
gproD は , プロ パテ ィ の な か に ある デー タ を 入手 する た め の プ プリミティブ で す . 任意 の 名 前 に 登 


録 さ きれ て いる プロ パテ ィ リ スト の な か か ら , 指定 され た プロ パテ ィ の 内 容 ( リ スト , ワ ー ド , 数 値 ) 
の み を 取り 出す 機能 を 持ち ます . 


?pprop *SMC777 maker “Sony|J| 
? gprop SMC777 makerlJ 
Sony 


つま り pprop と gprop は , 名 前 と プロ パテ ィ 名 に よっ て , 内 容 の 書き 込み 、 読み 出し を 行う わけ 
で が 、 


plist < 名 前 > 


plist は 任意 の 名 前 で 登録 され て いる プロ パテ ィ リ スト の 要素 の すべ て を , リス ト の 形 で 返し ま 
す . つま り , プロ パテ ィ 名 と 値 を ひと まとめ に し た も の を , ひと つの 要素 リス ト と し て 返す わけ 
X く 不 

?pprop "SMC maker ^Sony|J| 

?pprop "SMC CPU 280|J 

?pprop 'SMC `0S [Sony Filer] 
?plist SMC[ 

[0S [Sony Filer] CPU Z80 maker Sony] 


glist < プロ パテ ィ 名 > 
glist は 任意 の プロ パテ ィ を 持つ , 名 前 の リス ト を 返す 働き を 持ち ます . 最前 の 例 に 続け る と , 

?glist maker|』| 
[SMC] 
?glist "CPU 
[SMC] 
?glist *OS[ 
[SMC] 


と な る わけ で す . 
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4-2 リス ト 処 理 サ ンプ ル ・ プ ログ ラム 


PPS 
ppsS は , ワー クス ペー ス 内 に ある , ユー ザー が 定義 し た 全 プ ロ パ ティ 内 容 を , 画面 上 に 表示 (の 
み ) する 働き ほ を 持ち ます . 


? pps| 骨 

SMC's OS is [Sony Filer] 
SMC's CPU is Z80 
SMC's maker is Sony 


remprop < 名 前 > < プロ パテ ィ 名 > 
remprop は 任意 の プロ パテ ィ を , プロ ノバ パティ リス ト の な か か ら 削 除 し ます . 


?remprop “SMC *OS[J 
? plist *SMC [| 
[CPU Z80 maker Sony] 


プロ パテ ィ に 関す る プリ ミ テ ィ プ は この 6 つ だ け で す , いま まで 見 て きた 様々 な プリ ミ テ ィ プ ブ 
で ある と か 構文 の 組合 せ に 加え , プロ パテ ィ に よる 情報 管理 を 上 手 に 付加 する と, Logo は 
BASIC に は 見 られ な いよ うな 能力 を 発揮 する も の で す . プロ パテ ィ 管 理 は 実際 に 使っ て みる と 
存外 易しい も の で す の で , 習う より 慣れ ろ の 試行 錯誤 の つみ 重ね が 大 切な の で は な か ろう か と 思 
いま す . と に か く 数 値 以外 に 記号 を 扱う こと の で きる 言語 な ど , そう 手軽 に 入手 で き な い の で す 
か ら . 

次 の 節 で は , 今 まで 見 て きた リス ト 処 理 関係 の プリ ミ テ ィ ブ を 利用 し た サン プル プロ グラ ム を 
紹介 し , リス ト 処 理 の より 具体 的 な 使い 方 を 身 に 付け て いた だ こう と 思い ます . 


4-e リス ト 処 理 サ ンプ ル ・ プ ログ ラム 


で は , いく つか の サン プル プロ グラ ム を 見 て いく こと で , リス ト 処 理 、 プ ロ パ ティ 利用 な どの 
方 法 を 説明 し まし ょ う . まず は , 簡単 な 電話 帳 プ ログ ラム で す . 


( 1 ) 電話 帳 プ ログ ラム 


まず は , 次 の ペー ジ の リス ト 4 - 3 を 見 て くだ さい . 

電話 帳 に 最低 必要 な 項目 は , 名 前 と 電話 番号 . この 2 つの デー タ を プロ パテ ィ を 使っ て 管理 し 
て いる の が この プロ グラ ム で す . トッ プレ ベル は tel と いう プロ シー ジャ で , メニ ュー に より , 登 
録 検索. すべ て の 名 前 の 表示 , 終了 の いずれ か を 選び ます . 入力 は rc で 受け て いる の で [| を 押 
す 必 要 は な く , メニ ュー に 従っ て 1 文字 入力 し て ゆき ます . 
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4 章 Logo リ スト 処理 


登録 は 、reg と いう プロ シー ジャ . ガイ ド に 従っ て 名 前 と 電話 番号 を 入れ る と , さき ほど 出 て き 
た pprop と いう プリ ミ テ ィ ブ を 使っ て 。 デ ー タ が プロ パテ ィ リ スト に 登録 きれ ます . 


pprop :name “tel :tel 


NERORSETRTRNRRSSYSSKSSSR List 4-3 


setalpha 3 
pr Ltel トロ ク 
pr [te] サン サク push s key] 
pF [ナマ エ / リス ト push ] key] 
type [シラ ュ 9 リ ョ 9 スル = push q key] 
make "c ]c rc 


push r key] 


pr [] 
iT memberp ic [r s 1 q] [pr :c] 
if :c = "Fr [reg] 
if :c = "s Lsrc] 
i :c = "1] [lst] 
if :c = "q [setalpha 7 stop] 
go "loop 
end 
to reg 
1abel "1oop 
setalpha 6 
pr [] 


type Lname ?。.。。] make "name rq 
i 和 f emptyp :name [stop] 
type Lte] ?。。。。.] make “tel rq 
if emptyp :te]l [stop] 
PPprop :name "te] tel 

go "loop 

end 


も O Src 
1abel "1oop 
pr [上 ] 
setalpha 3 
type Luhose number?] make "name rq 
pr [上] 
iT emptyp :name [stop] 
setalpha 6 
Pr gprop :name "て teal] 
go "loop 
end 


to ]st 

pF [] 
setalpha 6 
Pr 9list "te] 
end 


ーー っ ーーー マー ニー フー デー アウ ニア ンー o ン ン ボ マ タラ と む 
コウ SH 2 あの を を 
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:name が 名 前 。 次 の “tel は プロ ノ パティ 名 ,:tel は 電話 番号 の デー タ と な り ま す . 
次 に 検索 を 行う の は , src と いう プロ シー ジャ . ここ で は 電話 番号 を 知り た い 人 の 名 前 を 入れ る 
と , gproD に より , 対応 する 電話 番号 を 表示 し ます . 


gprop :name tel 


1 つの 名 前 に は , 1 つの 電話 番号 し か 登録 きれ て いな い の で , 名 前 に 対応 し た 電話 番号 が 返さ 
れ て きま す . 
な お , 登録 し た すべ て の 名 前 を 表示 する プロ シー ジャ が lst で, ここ で は glist を 使っ て いま す . 


glist “tel 


これ だ け で , 登録 され て いる すべ て の 人 の 名 前 を 見 る こと が で きる わけ で す . 


モ =1 トワ ロク 
モ = | ケン サク 
ナマ エ ノ リス ト 
シュ ウリ ョ ウス ル 
軸 


pu5=h 
push 
pu5h 
push 


name ?。。。。 ア ント “ワウ 


te 1 ?。。 。 。 。319-9539 


ham ?。。。。 イ か ウチ 
te1 ?、。。。、。336-9466 


name ?。。。。 コ ント " ウ 


も te1 ?。。 。 。 。951 -3368 


name ?。。。。 


電話 帳 プ ログ ラム の 実行 例 (登録 ) 


モ te1 トウ 9 ロ フク 
モ e | ケン サク 
ナマ エ ノ リス ト 
ラ ュ ウリ ョ ウス ル 
5 


PuSsh ヒ 
Push = 
1 
に | 


中 昌明 日 


Push 
Pu5h 


uhose numbe レ ? イ か ウチ 


336-9466 


いり hoSe numbeF? ア ント * ウ 


319-9539 


? 
uhose number? 電話 帳 プ ログ ラム の 実行 例 ( 検 索 ) 
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4 章 


Logo リ スト 処理 


て tel ト 9 ロ n ク 
モミ 1 サン サク 
ナマ エ ノ リス ト 
ラ ュ 9 リョ ウス ル 
1 


push r key 
push s key 
push ] key 
push q key 


上 1 日 日 中 


コッ ト ^ 9 アッ ント“ ウ イサ 9 チ 


電話 帳 プ ログ ラム の 実行 例 
(名 前 の リス ト 表 示 ) 


こん な 簡単 な アロ グラ ム で す が , 電話 番号 の 変更 は 登録 と 同じ 作業 で で き , 実際 に 利用 する こ 
と も で きる わけ で す (デー タ を 入れ た あと プロ グラ ム を save す れ ば , デー タ も 一 緒 に 保存 され , 
再び プロ グラ ム を ロー ド し た と き に 再び 参照 。 変更 で きま す ). 


( 2 ) 英文 和訳 プロ グラ ム 


決 に 紹介 する の は , 極め て シン プル な 英文 和訳 プロ グラ ム で す . 


Oo 
C セ も 
PF 
PF 
PF 
PF 
pr 
=】a 
PF 
PF 
pF 
pF 
PF 
PF 
PF 


Je 

setalpha 7 

LX ※X %X %※ %※ ※ MY DICTIONARY ※ ※ ※ ※ ※ ※] 
[] 

[this, that, these , those] 

[is, are] 

La, an, the, and] 

Lapp 1 e\(\ー=\ ) 。 banana\(\ ギ -s\ ) 。 orange ギ (ギー=\ ) ] 
[strauberr ッ ギ ( 平 - iss\ ギ ) 。 mine,。 yoOurs]J 

[ juicy, pre セ y , 上 a= モ ッ , one, Some, て uo] 
[La_piece_of,。 my, your] 

[] 

[X ※ ※ ※ ※ XX ※ %※ ※ ※ ※ ※ ※ ※ ※ ※X ※ ※ ※] 


make "]ine r]1 


pr [] setalpha 6 
maike "n count line 
make "nm 1 
]abe] "1oop 
make " ぃ item :nm : line 


ュ 千 inm = 1 [syntax] 


make "up glist :u 


、 List 4-4 


ーー ニー ーーp ヂ ポポ ペ ツ ャ っ くつ コク ププ. ] で] ] ド 」 で] で ] で で で で .OOO キキ ココ コ ココ ーー サー トート ーーkKk・Mbーwーー、 ーー パー ーーーーーーー 
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ーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーeoeec 


Tsup。 三 に 
Lpr 上 ] (pr : ぃ u [ 八 , ラ リマ セン 。]) go "end] 

make "up 千 と ら モ :up 

モッ Pe 9PFODP KWP *! い 

make "nm :nm + 1 

1 人 f snm 三 (sn + 1)。Fpc 、F テ * ス 。] oo end コ 
go "1oop 
1abe] "end 


Se モ こ uFsor LO 23] seta ] pha 11 
pr Lcontinue ? (y / ノ n ロ )] 


if rc = "y [je] 
setalpha アア 
end 


て O S ッ ロモ a メ 

1 千 sn 1 [stop] 

make "head piece 1 2 line 

if memberp :head [Lthis is] 
[hat is] 
[these are] 
[those are]] 


Lmake “ ぃ uord first :head itaem 2 :head] 
end 
PpCop 「 千 " モ hi "コノ 
PPpCrop " 千 "て hat "ソノ 
Pprop " 千 "these "コレ ラノ 
PProp " 千 “those "ソレ ラノ 
POF と と Juicy "ミス "サタ ウフ" リー 
PP こ PD ら "ロビ ら モ モッ "カワ フィ ララ イ 
P ら COP  " ら "らら モッ "オイ シイ 
PPFoP ほら "one "ヒト ツノ 
PProP "e "て uo "フタ ツノ 
PPCoOP "es "=omes "イク リツ カ / 
PPCOp 8 -a_Piece_oFf " ヒト キレ ノ 
PPFoOP  e "my "ワタ シノ 
PEFOP "e "yoOur "アナ タ ノ 
PppCrop "d "apple "リン コ * 
ppPFop "dd "apples "リン コ * 
PpFrop "d "banana " 八 " ナ ナ 
PpFop "dd "bananas "' 作 " ナ ナ 
PProp "dd "orange "ミカ ン 
PPFop "dd "orange5 "ミカ ン 
PPFoP "dd "= モ FauberFy ッ "イチ コト 
PPFopP "dd "trauberries "イチ コ * 
PPPOP "dd "mine "リタ シ ノ モ ノ 
PPPoP "dd "yourS "アナ タ ノ モ ノ 
pprop "c "a 『" 
Pprop "c "an 
ppCrop c "the 「『 
PPFop "c "and " ギ トキ \ 
pprop "bb "人 。 
pprop "bb "are 『" 八 。 
pprop "a "thisis "コレ 
PPpFop "a "thatis= "アレ 
PPprop "a "theseare "コレ ラ 
PPFop "a "thoseare "アレ ラ 


4 章 Logo リ スト 処理 


これ を 人 工 知能 的 英文 和訳 プロ グラ ム …… な ど と 言う と お し か り を 受け そう で す が , プロ パテ 
ィ を 使っ た 簡単 な 割 訳 プ ログ ラム で す . 

Dr. Logo の 乏しい スタ ッ ク エ リア の た め , 構文 は be 動詞 を 使っ た 現在 形 の 英文 を 扱う こと に 
し て , まず Logo に 英 単 語 を 教え を まし ょ う . pprop を 使っ て , 分 類 名 、 英 単語 、 和 文 を プロ パテ ィ 
リス ト に 登録 し ます . 単語 は 、 よく 意味 を 考え て 選ば な いと 翻訳 し た 際 , 意味 を な さ な く な る の 
で 、 も う 一 度 初級 英語 の テキ スト を 読み 返す こと を 、 お 勧め し ます . 

さて , 祝 訳 を 実行 する メカ ニズム は いか に ? キー ボー ド か ら 入 力 さ れ た 英文 は 、 リ スト と し て 
変数 :line に 代入 され ます . これ を 、 item を 使っ て 頭 か ら 読み 出し 、 こ の 英 単語 : w が 属す る 名 
前 :wp を 探し ます . 


make “wp glist :w 


この 変数 を , gprop 文 の 引数 に 持っ て くる の で す が , gprop の 引数 は ,、 ワー ド . glist で 得 ら れ た だ 
cWD は 3 り 多 トト で す , そこ で 人 st を 使っ て ワ ソード に し て の ます 。 
(0G 二 


gDrOD :WD :W 


で , 和文 が 検索 され て くる わけ で す . そし て , 全 英 単語 が 変換 され 終る と , “デス .” が 付い て 文 
を し めく くる の で す . これ が , be 動詞 の 現在 形 構文 に し た 理由 で す . この プロ グラ ム に は , 構文 
解析 機能 が な い の で , 助動詞 の 構文 や 過去 完了 形 の 構文 な ど と いう の が 出 て くる と お 手 上 げ な の 
1 記 

ここ で は , 簡単 な 文法 解析 を 試み まし た . this や that が , 指示 代名詞 の 場合 と , 主語 代名詞 と 
し て 扱わ れる 場合 , つまり, this が “コレ” の と き と コノ ” の と き を 判断 し ます . プロ シー ジャ 
syntax が , この 機能 を 担っ て いま す . 


※ ※ %※ ※ ※ ※ MY DICTIONARY X ※ ※ ※ ※ ※ 


this, that, these, those 

18, are 

a, an, the,。 and 

apple(-s) , banana( -s) , orange(-s ) 
3trauberry(-ies), mine, your= 

Ju1cy。 Pretty , 上 as モッ , one, Some, tuo 
8a_Piece_of。 my,。 your 


甘美 甘 甘 区 天 区 区 ※ 区 ※ ※ 天 ※ ※ 区 区 


this is my pretty apple 


コレ ルル, 7 タラ ノ カ 9 イラ シ イリ ンコ " テ * ス 。 


continue ? (y / n) 


= 英文 和訳 プロ グラ ム の 実行 例 
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4-2 リス ト 処 理 サ ンプ ル ・ プ ログ ラム 


この よう に , プロ パテ チ ティリス ト と 判定 文 に よっ て 文法 解析 を し た り , プロ パテ ィ 名 の 付け 方 を 
工夫 し て さら に は 構文 解析 も 可能 で す . 


( 3 ) 暗号 と LOGOBASE 


ここ まで の 2 つの サン プル は 理解 で きた で し ょ うか . まァ , プロ パテ ィ に 限ら ず , リス ト 処 理 
の すべ て に 関し て 言え る こと に , と に か くく 慣れ と いう こと が 非常 に 重要 だ と いう こと を 念頭 に 置 
いて 人 欠 し いと 思い ます . BASIC な ど と 違っ て , Logo の よう な LISP に 近い 言語 で は , や りつ け 
な い リ スト の 処理 と いう 作業 が 必要 で , これ は も う 慣 れる 以外 に テ は な い の で す . 

以下 に 2 つの プロ グラ ム を 掲載 し ます . 前 者 の ANGO は , 漢字 で 書け ば 暗号 で , 読ん で 字 の 如 
く 普通 の コト バ を 暗号 に する プロ グラ ム . ミソ は shuffle 文 を 使っ て リス ト の な か の ワー ド を 乱 
数 で デタラメ に 置き 換え て 表示 し , いか に も 暗号 らし 〈 く 見 せる と ころ (も っ と も , ちょ っ と 頭 を 
ひね れ ば 誰 で も 解け る よう な 暗号 で は ある が …… ). ま た , あと に 掲載 する LOGOBASE の 方 は , 
これ も 読ん だ と お り の デー タベース ・ プ ログ ラム で , さき ほど の 電話 帳 プ ログ ラム を 少々 モデ ィ 
ファ イレ し , 名 前 と 電話 番号 だ け で は な く , 住所 と 誕生 日 も デー タ と し て 登録 で きる よう 付加 し た 
も の . その うえ 削除 や 保存 の 機能 も 付け て あり ます . 一 応 は デー タベース らし く 見 える も の と 思 
いま す が , 機能 と し て 最も 軍 要 な 役割 り を 担っ て いる の は , や は り プ ロン パティ 管 理 で す . 

リス ト と 実行 例 を 示し ます の で , 基 非 プロ グラ ム を 読み 。777 オ ー ナ ー の 方 は 打ち 込ん で , 実行 
し て みて くだ さい (説明 を し て いな い プ リ ミ テ ィ プ も 少し 出 て きま す が , リス ト の コメ ント と 
APPENDIX の プリ ミ テ ィ ブ 一 覧 を 参照 し て くだ さい ). 


45① 
モ O anGO 
こ 二 
=etalpha 6 
PP [※ ※ ※ アン ] コ “ ウ サク セイ ・ カ イト ~ ク フフ" ロク "ラム ※ ※ ※] 
mktable ) 障 号 表 を つく る ルー チン を 呼ぶ 
1abe]1 "menu 
5etalpha 6 


pr 上 ] コ 

PF 人 4 = フッ コ N092 の 5 に 
PE EZ2 ニョ アシ ョ 9 か 0NS2 ョ 1 ーー で Ao の 
pr 上 ] 


setalpha 3 
モッ pe [ハハ "ンコ ^ ウ テ ^ エラ ン テ ^ クタ "サイ 平 ] 
1abel "inp 
make "1 rc 
33 ト 二 3921 三 1 
ELpr 1 
pr 上 ] 
pF 上 モト ニナ ル フン ラ ヲ ニュ ウリ ョ クシ ラテ クタ "サイ ] 基 呈 作成 の 処理 
Setalpha 2 
make "plain Frqa 
=etalpha ア 7 
Pr encryp セ モ splain 
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iT 1 = "2 
Lpr 2 
pr [] 
Pr [アン ] コ "ウフ "ソン ヲ ニュ ウリ ョ クラ テ クタ "サイ ] 
setalpha 4 
make "crypt rq 暗号 解読 の 処理 


setalpha 7 
PF decr ア pt :cCFyp セ も 


[go "inp] 


se=talpha 3 

pr [上] 

type [リツ ツ " リ マス カ ? (y / n)] 

if rc = 'y [pr [] go "menu] 
setalpha 7 
end 


。 List 4-5② 


to mktable 

(1ocal "1 "dummy ) 

setalpha 3 

pr [] 

type [キー ト ナル カス " ヲ ニュ 9 リョ クミ ラテ クタ "サイ 平 ] 

rerandom ) 乱数 を 初期 化す る 

repeat rq Lmake "dummy random 1]  ) 入力 され だ 回 数 だ け 天 数 を 発生 させ 更新 する 

setalpha 11 

type [上 ラ ハル "ラク オマ チク タ " サイ ] 

make "1 32 

make "table [] 

repea 127 - 32 キ 
[make "table se :table char :i を 
make "1 ii キオ 1 

] 

make "table shuff] es :table ) 文字 の リス に を シャッフル する 

=etalpha 3 

setcursor [9 3] 

pF [ ラ 八 "ラク オマ チク タ " サイ ] 

end 


クタ コー ド 32 一 126 ま で の 文字 の リス ト 


訂 
ONI 


to encryp splain ) 引 敷 と し て 原文 . plain を 受け 取る 
(1ocal "crypt 「' ュ i) 
make "i 1 
make "crypt " 
rep ら a 七 count plain 
[make "crypt 
いり OF :C ビ ッ ロ セ 


item (ascii item 83b iplain) 三 泊 3 員 原文 の | 文字 目 を 晒 号 に 変換 レ て それ まで に 変 
換 さ れ だ 暗号 文 :crypt に つなげ る 


itable 
make "1 ii + 1 
| 
OP と ビ アロ ) 暗号 文 を 返す 
end 
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4-2 


モ O ddG こ と ビ アロ 七 。: こ ビッ アロ 

(local "1i "plain "p) 

make "ji 1 

make "plain 

GDPGa 七 CO 〇 mn 七 2: こ ビッ ロモ 

[if memberp 1 モ tem <:1i 
Emake "p uhere 
make “plain uord splain 
char :p + 31 
] 


maksa "i 


: こ と ビッ ロモ :table 


0 


oPE kplain 
en ゴ 


※ ※ ※ アン コ ^ ウ サク セイ ・ カ イト " ク フ " ロ ク " ラ ム ※ ※ 区 


キー ト ナル カス “" ヲ ニュ ウリ ョ クシ ラテ クタ ^ テ ィ 
ラ ハ ~ ラク オマ チク タ * サイ 


中 アン ショコ トウ ワリ ョ サク セス 
2 アン コ “ ウ カイ ト " ク 


ハ “ ン コ ~ ウ テ ^ エラ ン テ "^ クタ * サ イ 1 

モト ニナ ル フン ヲ ニュ ウリ ョ クラ シテ クタ "サイ 
1 am Dr. Logo 

1 ュー-Vi(D=iu" 千 = 


ツ ツ " ケ マス カ ? (y / n)_ 


※ ※ ※ アン コ “ ウ サク セイ ・ カ イト * ク フッ 5 ロク" ラム ※ ※ ※ 


キー ト ナル カス " ヲ ニュ ウリ ョ クラ テ クタ "サイ ア 
ッ ハ "ラク オマ チク タ ~ サイ 


1 アァ ンコ” り サク セイ 

2 アァ ンコ” ウ カイ ト ~ ク 

人 ハ " ンコ" ウ テ " エラ ン テ " クタ "サイ 2 
アン コ ” ウフ ドン ヲ ニュ ウリ ョ クシ ラテ クタ "サイ 


1] 3 ミ -Vi(D=iu"F= 
1 am DC. Logo 。 


ツ ツ ^ 7 マス カ ? (y / n)_ 


リス ト 処 理 サ ンプ ル ・ プ ログ ラム 


) 引 致 と し て 暗号 文 :crypt を 受け と る 


隊 号 文 の : 文字 目 を 解読 し , それ ね まで に 率 読 さ 
れ だ 文 : piain に つなげ る 


) 解読 文 を 返す 


暗号 プロ グラ ム の 実行 例 
(暗号 作成 ) 


暗号 プロ グラ ム の 実行 例 
(暗号 解読) 


4 章 Logo リ スト 処理 


to logobase 
(1ocal "comd "exe) 


H 

1] abel "=tar セ も 

Cc 1 eatex 七 
setcursor [5 4] 


PCint LX ※ ※ ※ %※ LUGUO BASE X ※ ※ ※ ※] 


setcursor [5 8] 


List 4-6① 


Print [ナニ ヲ ラ タ イ テ *“ ス カ ? No 、 キ ー ヲ オラ シテ クタ サイ ィ 1] 


setalpha 7 

=etcursor [9 19] 

PF [\\ ギ \\ 半 1 = トウ ログ] 

pr [] 

PF [ff ギ \ 半 千 2 = ケン サク ] 

pr [上] 

PF [\ \ ギ \\\\ 半 3 = テ "ー タ ラ ョ 9 キョ ] 
pr [] 


pr Lf \\\\\4= オ リリ コ 


1]abel "1oop 
setcuraor [34 21] 
prin モ [\[ \]]] 
setcursor [35 21] 
make "comd readchar 
type :cComd 
if kicomd = "4 
[ 
print [] 


メニ ユー 画面 の 表示 


メニ ュー 番号 の 入力 


type [ テ *- タ ヲ セー- フ "ラマ スカ (y / pn) キ ] 


make "comd readchar 


end 
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ュ 千 not icomd = "nn 


type icomd 光 了 人 を セー プ ま ざ 古 い フ ァイル 

er 1]ogobase 消去 レ , 登録 さ テ 避 
save "logobase eSShog 
] ー ク エリ ア を 初 

delete_pp8 

Cc 1 eartex モ 

Setcursor [15 12] 

Prin モ [マタ ネ ! ! 1!] 

Setcursor [9 24] 

run Leral 1] stop] 


if not memberp icomd [1 2 3] 1 ー に な い キ ー が 押さ れ て い だ と き ぎ , 入力 
[go loop] に 戻る 
[ 
make "exe (item uhere Lmakedata search erda モ a] 〉 


]oad zexe 
1 < ニュ ユー で 選ば れ だ プロ ロー ドレ , 
run て 11st :exe7 和 役 大 と な る の で 首 拓 する 着 
に Ak- に よっ 寺 に ん うつ ここ で は スモ リ を 節約 する だ め に 
9 〇 O 5 ら 上 ar 巧 makedata. search. erdata の 3 つの プロ シ 
] ー ジ ャ は , それ ぞ れ 同名 の ファ イル に 別々 に セ 
ー プ し て お こ 


4-2 リス ト 処 理 サ ンプ ル ・ プ ログ ラム 


ーー 


りー つく CCO *phone の 登録 され て いる プロ バテ ィ の る 有 前 を 
to print_data すべ て 表示 する フロ ー ジ ヤ 


Cc 1 ea に モモ 
etcursor [4 2] 


*makedata.*search.*erdata の 吾 プ ロー ジ 


PP1in 七 [※ ※ ※ ※ ※ トウ ロク サレ テイ ル ヒト ※ ※ ※ ※ ※] 


Se モ tcuFsor L2 5] 
type 9g115 モ も "phone 
end 


モ っ delete_ppS 

(1ocal "name "1i) 

make "name 11is= て "phone 
make "ij 1 

epPea モ Coun セ も iname 


らら mpFopP 1 も tem :i :name 
ら ほ mPCOpP iem :i :name 
じ ら mP ビ つ ロ 1 モ 上 em :1 ュ 1 :name 


make "』 ii 十 1 
] 

に か 中 っ 】) 

end 


モ to makeda モ a 


(1ocal “name "phone "addrsss 


1abe1 “1oop 
PC1in モ _ da モ a 


PCPin モ 
PF1n セ 
Pr in 
make 


1 千 sname ニ 


する 
PF1in 七 [テン ワ 八 " ン コ “ ウ ヲ イレ テク タ * サ イコ 


make 
5 
PP1n セ 
make 
ぅ 
PC1n モ 
make 
H 
PPCOP 
PPTOP 
PPCoP 


上 ] 

上 ] 

[ナマ エ ヲ イレ テク タ " サ イコ] 
"name readquo モ e 
[stop コ ] 


"phone read] i ョ モ 


[ シ ^ ユウ ショ ヲ イレ テク タ * サイ] 
"address read] i= モ 


[オタ ン シ " ョ ウ ヒ " ヲ イレ テク タ " サイ ] 
" birth read] is モ 


sname "phone sphone 
:name "addres5 :addres5 
:name "bir モ th :birth 


go "1】oop 


end 


) すべ て の プロ バテ ィ を 消去 する プロ シー ジ ヤ 


) プロ バテ ィ の 名 前 の リス ト を 得る 


:! 番 目 の プ ロバ パテ ィ を すべ て 消去 する 


List 4-6② 


) プロ バテ ィ を 登録 する プロ ー ジ ヤ 


) 何 も 入 力 な いと この ブロー ジ ヤ を 終了 する 


プロ バテ ィ を 登録 する 


4 章 Logo リ スト 処理 


mList 4-6③ 
モ っ search ) 検索 を する プロ ー ジ ャ 
(1ocal "uho "al11 ) 
1abel "1oop 
Print_data 
print [] 
pFin モ t [] 
type [\ タダ "レノ コト ヲ ラリ タイ テ * ス カ ?] 
make "uho readquote | 要 索 し だ い 宮前 を 入力 する 
i 千 :uho = " [stop] ) 何 も 入 力 し な いと この プロ ー ジ ヤ を 終了 する 
make "al]l plist zuho ) 入力 され だ プロ バテ ィ リ スト を 得る 
1 再生 58il] 三国 
[ 
print [] 
type :uho 
Print [サン 八 ト 9 ロ 2 サレ テイ マセ ン ] 入力 され だ 名 前 の プロ バテ ィ が な い 場 合 
pFin モ [] 


モ ype [ナニ カ キー ヲ オシ テク タ ^ サイ] 
make "uho readchar 
go "loop 
] 

print [] 

prin モ [] 

(print :uho "サン ノ ) 

type "テン 9 八 "ンコ "9 八 キ 

(print gprop :uho "phone ) 

Print [] 指定 され だ 名 前 の プロ バテ ィ の 内 容 を 出力 する 

type ラ " ュ 9 ウラ ョ ハギ \ ギ \\ ギ 

(prin gprop :uho "address ) 

Print [] 

type "タン シラ" ョ 9 ヒ " 八 半 ギ 半 

(print gprop :uho "birth) 

print [] 

モ ype [ナニ カ キー ヲ オシ テク タ " サイ] 

make "uho readchar 1 回 キー を 押す と ヾ loop に 戻る 

go "loop 
end 


| リン の PS が SO の 2 グフ 2722220007200 の 602 3S5 導 2 List 4-6④ 


せ o erdaa ト ) プロ バテ ィ を 消去 する プロ ー ジ ヤ 
(1ocal "name "select "1) 


す 

1] abe] "start 

PCP1in 七 _data 

Print [] コ 

Prin も [] 

type [LE セ " ン ブフ" ケラ シマ スカ? (y / n) \ ] 

make "select readchar 

pr :S ら 1 ec 

ュ 千 no て memberp :selec も t [y n] 入力 が y で も n で も な い 場 合 , 最初 に 戻る 
[go = セ Fart] 

i 千 :select = ーッ 
Ldelete_pps stop] ) すべ て の プロ バテ ィ を 消去 する ブ プロー ジャ を 呼ぶ 


ト つ っ 
ト っ 


4-2 リス ト 処 理 サ ンプ ル ・ プ ログ ラム 


PPin モ も [上] 

モッ pe 上 ヒ タ " レ / テ "ー タ ヲ サラ シマ スカ ?] 
make "name readquote 
remprop :name "phone 
empCOP :name "addre ら 5 

どら mpFoOp iname "も birth 

らら モ 〇 ロ 


入力 され だ 名 前 の プロ バテ イィ を 消去 する 


end 


※ ※ ※ ※ ※ LOGUO BASE ※ ※ ※ ※ ※ 


シタ イ テ * スカ ? No . キ ー ヲ オシ テク タ " サ イ 1 


トウ ロク 
ケン サク 
テー タ ショ ウキ ョ 


ォ ワリ 


LOGOBASE( メニ ュー) 


※ ※ ※ ※ ※ ト り ロク サレ テイ ル ヒト ※ ※ ※ ※ ※ 


アァ ント ” 9 イケ 9 り チ 


ナマ エ ヲ イレ テク タ " サイ 

ey」 

テ “ ン ワリ 八 " ンコ" ウ ヲ イレ テク タ " サ イ 
9251 -3368 

シ ^" ュ ウ 9 ショ ヲ イレ テク タ " サイ 

シン シュ ク ク シモ オチ アイ 

オタ ン シ " ョ ウ ヒ " ヲ イレ テク タ " サイ 
S37 12 15_ 


LOGOBASE( 登録) 


※ ※ 区 ※ ※ トウ ロク サレ テイ ル ヒト ※ ※ ※ ※ ※ 


コン ト “" り アン ト “" ウ イケ ウチ 
タダ” レノ コト ヲ シリ タイ テ * ス カ ? コ ント * ウ 


コン ト “” 9 サン ノ 
テ " ン 9 八 " ン コ ^9 八 951 - 3368 


シラ” ュ ウ ショ ハル シン シ ” ユ ク ク シモ オチ アイ 


タン シ " ョ ウ ヒ ~ 人 ハ S37 12 15 


ナニ カ キー ラ オシ テク タ " サ イ LOGOBASE ( 検索) 
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( 4 ) まとめ 

Logo の 解説 は , 以上 を も っ て 終 了 し ます . いか が で し ょ う . Logo の お も し ろ さ , わか っ て いた 
送 陸 0 し よう の 5 

ユニ ー ク な 教育 用 言語 と し て の Logo の 将来 は , ひと え に 人 社会 一 般 が , Logo の 目指 す 学 習 過 程 創 
造型 の 教育 方 法 を , 認識 し 評価 する か 否 か に か か っ て いる と 思わ れ ま す . Logo に よる 教育 で は , 
コン ピュ ー タ は 学習 環境 を 提供 する こと に 主眼 が 置か れ て いる の で す . そ し て Logo の 持つ 理念 と そ 
れ に よっ て 得 ら れる メリ ッ ト は , 子供 を ひと り の 知性 ある 人 間 と し て 見 た 場合 , 少な く と も 現代 
の マス 教育 の 画 一 人 間 を 作り 出す よう な シス テム より は 有益 な も の と 言え る で し ょ う . 

この Logo が 目指 す 教育 方 法 が 広がる に は , まず Logo が 社会 的 に 認知 さき れる こと が 重要 な ファ 
クタ ー と な る の で は な いか と 考え られ ます . その た め に は , ひと り で も 多く の 人 が Logo に 触れ , 
そこ か ら Logo の も た ら す メリ ッ ト を 多重 的 に 引き 出し て ゆく 必要 が あり ます . そし て , それ に は 
な に より , Logo を より よく 理解 し 使い こなす こと の で きる 人 間 が 多数 眉 出 せ ね ば な り ませ ん . 
で すか ら , Logo が 社会 的 に 何ら か の 意味 を 持つ 存在 に な り 得 る か 否 か , 本 章 を お 読み の あな た に 
負う 部 分 が 多分 に ある の で す . も っ と も , 難し く 考 える 必要 は な く , 要 は Logo を 使い 、 プ ログ ラ 

ミン グ を 通し て Logo を 知っ て いた だ けれ ば よし , 結論 は お の ず と 下さ れる も の で すか ら 一 一 . 

Logo の も う ひ と つの 側面 、 リ スト 処理 に 代表 され る 人 工 知能 的 な 言語 と し て の 特性 に も , 若干 
触れ て お きま し ょ う . ファ イ ゲ ン バ ウ ム の 『 第 五 世 代 コ ンピュータ 』 で ずい 分 有名 に な っ た 日 本 
の A 1 開発 は 。 し か し よく よく 見 れ ば , まだ まだ 端緒 の その また と ば 口 に 着い た ば か り . 本 格 的 
な AI の 始動 は 、 実は これ か ら 始 まる の だ と 言っ て も よい で し ょ う . 

AI が 実用 に 供 され た 場合 の 社会 的 1 ン パ クト ーー それ は パソ コン の 普及 の 比 で は な いと 考え 
られ ます 一 一 を 子 測 する な ら , AI 自体 が より 手軽 な 存在 に 近 付 か ね ば な ら な い の は 自明 の 理 . 
コン ピュ ー タ の 発達 が 。 ハ ー ド の 面 で は 草創 期 の 先達 の 努力 の 賜物 で あっ た の に 対し , ソフ ト 面 
は 幾多 の 名 も 知れ ぬ プ ログ ラマ の 創意 の 累積 で 成り 立っ た こと を 氏 み る まで も な く , AL が 一 部 
の 専有 物 で あっ て は な ら な い の は 当然 の こと と 言え る で し ょ う . 

私 た ち が A ! に 近付く ひと つの 手段 が アロ グラ ミン グ , それ も Logo で 試み た よう な , 記 号 処理 
を 実践 する も の で す . すでに A {言語 と し て 著名 な LISP や PROLOG 等 の 言語 が パソ コン レベ ル 
で 使え る まで に な っ て は いま す が , 問題 は いずれ も 比較 的 高額 で , し か も 専門 家 や マニ ア 以 外 に 
は 近付き に くい 和 肥 囲 気 を 持っ て いる こと . その 点 で , Logo は リス ト 処 理 の 入門 に , 最適 の 環境 を 
提供 し て くれ る 存在 で は な いで し ょ うか . この 章 で 試み た よう に , Logo に お ける リス ト 処 理 は 
半ば 無意識 の うち に 実行 され て し まう は ほど 自然 な も の . Logo を 用 いた プロ グラ ミン グ は , 近い 将 
来 の A I の 登場 に 対処 する た め の , 自己 啓発 的 学習 に な り 得 る の か も し れ ま せん . 

まァ , 小 難 し いこ と を 考え る より も , や は り Logo は , プロ グラ ム を 楽し むこ と が 一 番 で し ょ う . 

や れ エ リア を くい 過ぎ る だ の , 何 を や ら せ て も トロ い だ の , Logo に 対す る ケチ は いく ら で も 付け 
られ ます . し か し , それ で も な お , 使っ て 楽し い 言語 で ある の が Logo の よう で す . そし て , そん 
な な か で , 何 か 得 る も の が ある の な ら , それ に こし た こと は な いで し ょ う . 
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シス テム メニ ュー か ら BASIC を 選ぶ と, ソニー 自社 開 発 に よる 777 BASIC が 起動 され ます . 
この BASIC は 他 機種 に 見 られ ぬ 豊 富 を 機能 が 盛り 込ま れ , か な り 強 力 か つ 使 い 勝 手 の よ いも の 
に 仕上 が っ て いま す . し か し , 多彩 な 機能 が 付加 され た と いう こと は , それ だ け 覚 えな けれ ば な 
ら な い コ マン ド だ の 約束事 が 増え た と いう こと . 

本 章 で は , まず 777 BASIC の 特徴 を 述べ , 続い て 効果 音 や ミュ ー ジ ッ ク の 鳴ら せ 方 , デ ィ ス ク 
ファ イル の 扱い 方 と いっ た , 777 BASIC を 有効 に 使う た め の 命令 の 説明 , さら に MEMO で 作っ 
た デー タ の BASIC で の 利用 法 と 説明 を 進め ます . 

777 BASIC の 文法 の 多く は 現在 最も 普及 し て いる マイ クロ ソフ ト BASIC に 進 じ て いま す . そ 
こ で 本 書 で の BASIC の 解説 は , マイ クロ ソフ ト 系 の BASIC の 基本 的 な 知識 は 一 応 持 っ て いる と 
いう 方 を 想定 し て 書い て あり ます が , 多少 な り と も 難し そう な 事柄 は 基礎 か ら 説 明 し て あり ます . 
初心 者 の 方 も 巻末 に 記し た 参考 文献 や マニ ュ ア ル (SMC-777 本 体 に 付い て くる BASIC ハン ドブ 
ッ ク ) を 参考 に 本 章 を 読み こなし て くだ さい . そう すれ ば , ハン ドブ ッ ク の 巻頭 に 書い て ある よ 
うに “いつのまに か コン ピュ ー タ と 気持 ち が 通じ 合う ” よう に も な っ て いく こと で し ょ う . 


5-1 777 日 ASIC の 特徴 


777 BASIC は , ソニ ー が 初め て 開発 し た パソ コン SMC-70 の ディ スク BASIC の 特徴 を 受け 継 


い だ , ソニ ー 独 自 の BASIC で す . 本 節 で は , まず この 777 BASIC の 特徴 を 紹介 する こと に し ま 
06 


( 1 ) 操作 性 


SMC-777 は , 操作 性 に 多く の 配慮 が な され た パソ コン で , その 点 を 指し て ソニ ー み ず か ら ソ フ 


トウ ェ ア ・ プ レー ヤー と 呼ぶ ほど で す . 777 BASIC に お いて も , 操作 性 へ の 配 上 は 十分 に 行わ れ 
て いま す . 
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プロ グラ ミン グ 中 リタ ー ン キー ズ て 文字 色 が 変る 

BASIC の 起動 後に 入力 を 始め て みて , まず 最初 に 気付 く の は , キー 入力 の エコ ー バ ッ ク が 水色 
の 文字 で 表示 され て いる と いう こと で し ょ う . この 水色 表示 は , RETURN キー( 以 後 [| で ポ す ) 
で 白 に 変り ます . つま り 命 令 が メモ リ に 記憶 され た こと を 視覚 的 に 教 た ん て くれ る わけ で , な か な 
の 32 の いた 0 7206 だ ら 交 の の 2 まだ ん ば スク 9 に ーー シェ エア 春の ブロ グラ ベ を 修正 の 
る よう な と き , リス ト 表 示 が 白い 文字 で ある の に 対し , 修正 目的 で 新た に 入力 し た 文字 が スト ア 
され る ま て 水色 で 表示 され て いる た め , 修正 箇所 が 非常 に わか り 易 く 、。 また タイ プ ミ ス や 入力 の 
し 忘れ 等 の チェ ッ ク に も 役に立ち 、 な に より も | の 押し 忘れ (これ が よく あっ て , いつ も 泣か さ 
れ て いた り し て ……) 防止 に 威力 を 発揮 する も の で す . 


キー ファ ンク ショ ン 


機 能 
カー ソル の ある 行 の カー ソル 以降 を 消す 
カー ソル の 行 の カー ソル より 前 を 消す . 残っ た 文字 は 行頭 まで つめ られ る 
テキ スト 画面 全体 を 消し , カー ソル を 左上 端 に 移す 


カー ソル の 位置 の 文字 を 消し , それ より 後 を つめ る 


填 [DE ー ソ ル の ある 行 を な くし て , それ より 下 の 行 を 上 げ る 


カー ソル の 位置 に スペ ー ス ーー 


コ 
縛 還 
| 


| 
! 


王 
"m 
還 
同 
と 
づつ 


ワ 

リコ 
ヒン 
十 
還 
Ps 
還 


邦 | | 〇 
に | 
前 
ワ 
| 


の 
三 
て 
ゴゴ 
十 
三 
の 


ー ソ ル の ある 行 以降 を ひと つ 下 げ , ーー の する 
行 の 頭 頭 に カー ソル を 移す 
の 最後 に カー ソル を 移す 
画面 左上 の 端 に カー ソル を 移す 


エ 
8I| 日 
王 | | | つ 
TI に 
十 
の 


+| + 
四半 上 思 ど 
〇 | 日 | 
三 | | 
「m 「m 

i 


の | の て の 

| | | | 回 | に 

| 日夕 | 

| 申 日 コ 
十 


[HOME| と 同じ 
+ [SHIFT|+[HOME] と 同じ 
RUBOUT カー ソル の すぐ 左 の 文字 を 消し カー ソル 以降 を つめ る 
これ を 押す と 画面 に 出 た も の が プリ ンタ に も 出力 され る よう に な る . これ は ト 

[CTRL]+ 

上 グル に な っ て いて , も う 一 度 押す と 解除 され る 
[CTRL]+[H) [BS 」 と 同じ [CTRL」+[N] [CTRL]+[CLR| と 同じ 
[CTRL+[] [FABI と 同じ [CTRL]+[Oj [CTRL]+ [INS] と 同じ 
CTRL |+[J] [LF] と 同じ CTRL]+[Q] CTRL ]+ [DEL] と 同じ 
[CTRL]+IM 回 と 同じ [CTRL]+[T] | [CTRL]+ [HOME] と 同じ 


表 5-1 主 な キー ファ ンク ショ ン 
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777 BASIC で は , [SHET| や [CTRL| の キー と , [CLR] , [DEL], [INS], [HOME] それ に ヵ カー 
ソル パドル (上 下 左右 それ ぞ れ [ 全 , 還 , 四 , 皿 で 表す ) な どの キー の 組合 せ で , コマ ンド や リ 
スト 入力 時 に か な り の 働き を させ る こと が 可能 で す . 

まァ , 豊富 な 機能 が 用 意 き れ て いる と いう こと は , それ だ け に 慣れ が 要 る と いう こと で す の で , 
表 5- 1 に 示し た 主 な キー ファ ンク ショ ン を 頭 に 入れ , オペ レー ショ ン の いか な る と き で も 使え る よ 
うに 訓練 し て くだ さい (有効 に 使う と, こん な 力強い 味方 も な いで す ゾ ). た だ 注意 し な けれ ば な 
ら な い の は , プリ ント アウ ト 時 に 用 いる [CTRL| + 円 を プリ ンタ を つなが ず に 押し て , その あと 
何 か を 入力 し て [| し た りす る と, それ 以降 キー 入力 を 一 切 受 け 付け な く な っ て し まう こと . こん 
な 場合 は も う 一 度 [CTRL| + 円 を 押し て , プリ ンタ 出力 状態 の 解除 を 計ら な く て は な り ま せん . 

な お , ファ ンク ショ ン キ ー も 5 つつ 用意 き れ て いて , 他 機種 同様 , キー タッ チ の 回 数 減少 に 役 立 
ち ま す . BASIC 起動 時 に ファ ンク ショ ン キ ー に 登録 され て いる 命令 は 表 5 - 2 の と お り . も ちろ ん 
登録 内 容 を 変更 する 命令 (DEFKEY) も 存在 し ます . 


Wipe' 


Console 


Gclear 
Renum 


Keylist' 


表 5-2 ファ ンク ショ ン キ ー に 登録 され て いる 命令 


リス ト の 行 の 分 割 と 結合 

777 BASIC で は , プロ グラ ム の 1 行 を 2 つ に 分 けた り , 2 行 を 1 つ に 結合 し た りす る こと も 簡 
単に で きま す の で , その 方 法 を 紹介 し まし ょ う . 

まず , 分 割 に つい て . 画面 が 次 の よう に な っ て いた と し ます . 


LIST 
10 FOR | 三 1 TO 1000 :NEXT 


この NEXT の 部 分 を 20 行 と し て 分 割 す る と き に は , まず カー ソル を NEXT の 前 の コロ ン の 所 
に 持っ て き て , [INS] を 1 回 押し て か ら 20 と 打ち , 再び カー ソル を 2 へ 戻し ます . 


10 FOR ! 1 TO 1000[2]0 NEXT 
1 カー ソル 
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災 ( を 押し 続け て , 20 以 下 を 画面 上 の 次 の 行 へ 持っ て ゆき ます . 


10 FOR |= ニ 1 TO 00 ロ 
20NEXT の に 9A00 


ここ で , カー ソル を , 1 つ 軸 し て , [CTRL|+ IINS| し て くだ さい . する と, 2 つの 行 の 間 が , 
1 行 離 れ ま す . 


10 FOR | 三 1 TO 1000 
| | 一 カー ソル 
20NEXT 


決 に , カー ソル を 10 の 表示 され て いる 行 へ 持っ て ゆき [|. する と カー ソル は 20 の 表示 され て い 
る 行 へ 移動 する の で ここ で も ? も |. これ で 分 割 は OK. 再び リス ト を 取る と , 
LIST 10 
10 FOR |=1 TO 1000 
LIST 20 
20 NEXT 


と どなり ます . 


で は , これ を も と に 戻し て み ま し ょ う . まず リス ト を 取り , カー ソル を 10 行 の 表示 され て いる 
f の 右端 に 移動 し て くだ さい . そこ で スペ ー ス を 押す と , 画面 は 次 の よう に な り ま す . 


10 FOR | ニ 1 TO 1000 
[| 一 カー ソル 
20 NEXT 
ここ で , |CTRLITIDEL| を し て くだ さい . する と 画面 は , 


10 FOR | 三 1 TO 1000 


20 NEXT 
カー ソル 


と な り ま す . ここ で , カー ソル を 1000 の 次 に 持っ て ゆき , [DEL| を 押し 続け る と , 


10 FOR | 三 1 TO 1000[210 NEXT 


と な る の で , も う 1 回 [DEL| を 押し て , コロ ン (:) を 押し て か ら , [| し ます . 試し に LIST 
を 実行 する と , 
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LIST 10 
10 FOR | 三 1 TO 1000 : NEXT 


と な り ま す . 
な お , これ ら の 操作 は , 画面 上 の 最 下 行 近く で 行う と 失敗 する (この 例 だ と 20 行 に 当たる 部 分 
が 画面 か ら 消 えて し まう ) こと が ある の で , 注意 が 必要 で す . 


DIR 命 令 
DIR 命令 は , ディ スク に 登録 さき れ て いる ファ イル 名 を 画面 に 表示 する 命令 で ,。 マイ クロ ソフ ト 


系 BASIC の FILES に 相当 し ます . 
777 BASIC に お ける この 命令 の 特徴 は , ファ イル の 指定 に ワイ ルド カー ド を 使え る と いう こ 


と こと 5 は 
DIR “A :* .BAS” (*. 拡張 子 ) 同一 拡張 子 の 全 フ ァイル 名 を 表示 


DIR “A :TEST .※? (ファ イル 名 .*) 同一 ファ イル 名 の 全 フ ァイル 名 を 表示 
DIR “A :T? 2 2 .※? ? の 入っ た 部 分 以外 が 共通 の 全 フ ァイル 名 を 表示 


と いう 具合 に 使え る わけ で す . また だ , 表示 され て いる ファ イル 名 が 1 行 に ひと つ ず つ で , し か も 
左 に コマ ンド を 入れ る た だ ため の 空白 を 置い て ` で 囲ま れ て いま すか ら , LOAD や RUN な どの コ 
マン ド を 実行 する と き に 便利 で す . 


DIR 
YA : TESTRR 1 . BAS? 
RUN YA : TESTRR 2 . BAS? 
YA : TESTRR 3 . BAS? 


上 の よう に DIR を 実行 し た あと , TESTRR 2 を 実行 し た いと き は , カー ソル を 有 目的 の 行 へ 移動 
し て RUN | と タイ プ ' す れ ば OK. 
な お , ファ イル 名 を プリ ント アウ ト す る 命令 (マイ クロ ソフ ト 系 BASIC の LFILES に 相当 す 


る も の ) は あり ませ ん の で , [CTRL|+[P] の ぉ と に , DIR- を 実行 する 必要 が あり ます . 


(2 ) EDIT と DEBUG 


ここ まで の 説明 で も わか る と お り , 777 BASIC に は プロ グラ ム を 自分 で 作る 人 の た め に , いろ 
いろ と 便利 な 機能 が 備わっ て いま す . デバ ッ グ する と き に リス ト を 修正 し て も 変数 の 値 が 初期 化 
され な いと いう 細か な 気配 り も し て いま す が , 特に よく 配慮 され て いる の は EDIT と DEBUG で 
し ょ う . これ ら の コマ ンド は , デバ ッ グ の 効率 を 高め る 有効 な ツー ル で , 特に いつ も バグ を 出し 
て ば か り で 困っ て いる 人 に は 役に立つ シロ モノ . 以下 に 具体 的 な 使い 方 示し ます の で , 十分 に 
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EDIT 
EDIT コマ ンド は 文字 どおり エディ ッ ト を 行う 命令 で , 書式 は , 


EDIT <〈 行 番号 > 


と な り ま す . 行 番号 を 省略 し た と き に は , 最後 に エディ ッ ト し た 行 , また は 最後 に 実行 され た 行 
を 指定 し た こと に な り ), 実行 する と テキ スト 画面 は トク リア され , 指定 し た 行 の み が 表 示さ れ ま す . 
その 行 の 修正 が 終っ た ら |SHIFT [1] ま た は [で 前 後 の 行 を 呼び 出し , その 時 点 で , 修正 し た 行 
は 自動 的 に メモ リ に 記憶 され ます . 

修正 が 終了 し た ら [| を 押す こと で 完了 レ し て エ ディ ッ ト モード か ら 抜 け ます し ,[ESC] を 押す と , 
エディ ッ ト を 中 断 し て この モー ド か ら 抜 ける こと も で きま す . また , エ ディ ッ ト モ ー ド で 上 | キー 
を 押す と , 


Help [B,E,L,S] : 


と 表示 され , B, E, L, S の 各 キ ー で , 表 5 - 3 に 示し た よう な 機能 を 選択 使用 する こと が で き , 
と り わ け S で 得 ら れる 文字 列 の 検索 は , 長い プロ グラ ム な どの 変数 名 の 変更 等 に 成 力 が ある も の 
ィ 6g 


機 


エディ ッ ト 行 を 変更 する . 変更 先 の 行 番号 を 入力 すれ ば 


Search 

探し た い 文 字 列 (20 文 字 以 内 ) を 入力 する と , その 文字 
列 を 含む 行 に エディ ッ ト 行 が 移動 する . [| を 押す ご と に 
その 文字 列 を 含む 行 に 次 々 と 移る 


表 5-3 EDIT モ ー ド の ヘル プ コ マン ド 


DEBUG 
DEBUG は 文字 どおり デバ ッ グ の た め の コ マン ド で , 書式 は , 


DEBUG < 行 番号 > 


130 


5-1 777 BASIC の 特 役 


で す . 行 番号 を 省略 し た と き は EDIT と 同様 で , これ を 実行 する と 画面 が スク ロー ル し , 20 行 目 
に デバ ッ グ の コマ ンド メニ ュー が , 


Command[CDEGLPORSTU1 2 ]: 


と 表示 され , デバ ッ グ モー ド に 入り ます . この 状態 で デバ ッ グ を 進め て ゆく わけ で す が , この 
と き ス ペー スバ ー を 押す と , 


| 5 | wpverfs 番 基 。 |pemve コ マシ Fe | 
Goto[ 開始 行 番号 ] それ まで の 変数 の 値 を 保持 し た まま , プロ グラ ム を 部 分 的 に 
[/ プ レー ク 行 番号 実行 する 

[ : プ ブレーク 行 中 の 文 番 号 ] | 属 ( 行 番号 ) i ) 直 前 に 実行 され た DEBUG コ マン ド の 指定 行 
[ (実行 回 数 )], …… ii ) 前 の G コマ ンド で の プ ブレー ク 行 iii) 直前 の S また は T コ 
マン ド で の 実行 文 の 次 の 行 , か ら 開始 

( 文 番 号 ) 0 と みな し , 前 の 行 の 最後 まで 実行 (回 数 ) 1 回 


L List[ 開始 行 番号 ] 通常 の LIST コマ ンド と 同じ . た だ し , スク リー ン エ ディ タ 
[一 ][ 終 了 行 番号 ] 機能 は 使え な い 
Print[ @ デ バイ ス 番 号 , ] 式 , | 通常 の PRINT コ マン ド と 同じ 
変数 また は 定数 


Y Y で デバ ッ グ モー ド 終 了 
Quit ! に 
N N は 続行 
に 本寺 Run[ 行 番号 ] 通常 の BUN コ マン ド と 同じ 


指定 し た 数 の 文 を 実行 
DEBUG コ マン ド で 特定 の 行 を 指定 し た 直後 , ま た は G コ マン 
ド の ブレ ー ク 行 や T コ マン ド , S コ マン ド , STOP, 
キー な ど て 実行 か 中 断 し た 直後 の み 有効 

賠 1 
指定 し た 行 数 分 だ け プ ログ ラム を 実行 
S コマ ンド と 同じ 条件 で の み 有 効 賠 1 
未定 義 の 変数 を 検出 . エラ ー 表 示 を 出す と き は Y, 必要 な い 
と き は N 


Trace[ 実 行 行 数 ] 


文 を 1 実行 する ご と に , 指定 し た 式 を 繰り 返し 実行 
1 で は 結果 を 24 行 目 に 2 で は 25 行 目 に 表示 


[ ] 部 分 は 衝 略 可 ,| | は ど ち ら か 一方 を 選択 


表 5-4 DEBUG コ マン ド の コマ ンド 表 
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(Direct Mode) 


と 表示 され , 表示 画面 上 で 1 行 以内 の コマ ンド (BASIC の コマ ンド ) 入力 や , 新た に 行 を プロ グ 
ラム に 追加 する こと が で きま す . 
デバ ッ グ コマ ンド は 表 5 - 4 に 示し た と お り で す が , いく つか 補足 を 加え て お く こ と に し まし ょ 
に 
1 及び 2 の コマ ンド に つい て は ,。 コマ ンド メニ ュー か ら こ れ ら を 選択 する と , 
1st print items (2nd print items) 
Print 


と 表示 され ます が , ここ で チェ ッ ク し た い 変 数 名 等 を 入力 する と, 画面 上 の 24 行 (また は 25 行 目 ) 
に , R,G,、T, S 等 の コマ ンド で , 文 を ひと つ 実 行 す る ご と に 指定 し た 変数 の 値 を 表示 し , その 
変化 の 様子 を 知ら せ て よこ し ます . ま 了 これ が 普通 の 使い 方 な の で す が (これ だ け で も え そら く 便 
利 )、Print と 表示 され た と ころ で |BS| な ど を 用 いて Print の 文字 を 消し て し まい , 任意 の 命令 を 
入力 する と その まま 実行 する こと が で きる の で す . た と えば デバ ッ グ コマ ンド 1 で 通常 の print N 
(N は 変数 名 ) を 指定 し , 次 いで 2 で , 


PAUSE 5 


- 指 定 し た と し ます . PAUSE N は , 約 N/10 秒 間 プ ログ ラム の 実行 を 中 断 する 命令 で す . こう す 
る と , プロ グラ ム 中 の ひと つの 命令 を 実行 後 , チェ ッ ク し た い 変 数 の 値 を 表示 し , 2 で 少し 時 間 
を つぶ し て か ら 決 の ステ ッ プ に 進む よう に な り ま す . 変化 の 大 きい 変数 な どの チェ ッ ク に は , こ 
の よう か 方 法 を 用 いる と プロ グラ ム の 流れ が 遅く な り , 変数 の 値 の 1 回 の 表示 が 長く な っ て チェ 
ッ ク し 易い と いう 利点 が 生ま れ ま す . 

通常 。 値 の 代入 され て いな い 変 数 は 整数 型 。 実 数 型 で は 0, 文字 型 で は ヌル スト リン グ と し て 
処理 され る の に 対し , U コ マン ド を 実行 する と R, G, T, S 等 の コマ ンド で , 文 を 実行 中 に 値 の 
代入 され て いな い ぃ 変数 が 式 の 右辺 に 現れ た 場合 に エラ ー 表 示 を 行い , 実行 を 中 断 さ せる よう に な 
り ま す . 

この ほか , 777 BASIC に ある REM DEBUG コマ ンド を プロ グラ ム に 入れ て お く 〈 く と, デバ ッ グ 
モー ド 中 の み に 実 行 さ れる ステ ー ト メン ト を 書く こと が で きま す . た と えば , 


REM DEBUG PRINT A,B 


と いう 命令 を プロ グラ ム に 入れ て お く 〈 く と, 通常 の RUN コマ ンド で の 実行 中 は リマ ー ク ( 注 秋 ) と 
見 な され る の で す が , デバ ッ グ モー ド 中 で は REM DEBUG の あと に 続く PRINT A,B と いう 
命令 が 実行 され , 変数 A, B の 値 を 表示 し て くれ る の で す . 
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(3 ) 特殊 な 関数 


777 BASIC で 使用 で きる 関数 の うち 特徴 的 な も の に , COND, PROG、SETQ が あり ます . 
COND の 書式 は , 


COND (条件 式 , 式 1, 式 2) 
で , 条件 式 の 値 が 真 (0 以外) な ら 式 1, 偽 (0 ) な ら ば 式 2 を その 値 と し ます . た と えば , 
COND (a く 0, 一 a, a) 


と する と , a の 絶対 値 が その 値 と な り ま す . 
PROG の 書式 は , 


PROG ( 式 1, 式 2, …… , 式 n) 


で , この 関数 は 式 を 1 か ら 順 番 に 評価 し , 最後 の 式 の 結果 を その 値 と し ます . 
SETQ の 書式 は , 


SETO (変数 , 式 ) 


で , 式 を 評価 し , 結果 を 変数 に 代入 し . さら に この 式 の 結果 を 値 と し ます . た と えば , 


SETO (B,10) 


と すれ ば , 変数 B に 10 が 代入 され る と 共に , この 関数 の 値 も 10 と な り ま す . 

この よう な 働き を 持つ 関数 で す が , DEF FN 命令 (ユー ザー が 関数 を 定義 する 命令 ) 中 に 使用 
する こと で , 再帰 的 な 呼び 出し を する こと が で きる よう に な り ま す . その 例 が 次 の ペー ジ の リス 
ト 5 - 1 で , これ は ある 数 (ここ で は 行 番 号 20 で 変数 に キー 入力 され た 数 値 ) の 階 乗 を 求め る プロ 
グラ ム で , 行 番 号 10 で それ を 実行 する ファ ンク ショ ン の 定義 を 行っ て いま す . 

この 行 を よく 見 る と , 定義 し よ う ) と する 関数 自身 を その 右 の 式 で 使用 に て お り , この よう な 定 
義 の 方 法 を , Logo で も 紹介 し た よう に 再帰 呼出 し と 呼び ます . 

この プロ グラ ム を 見 れ ば , 


| [n 三 0 ] 
f(n) = 
nXf(nー 1 ) [n> 0 ] 


と いう , 階 乗 の 再帰 的 な 定義 を その まま コー ディ ング し て ある こと は , すぐ に わか る で し ょ う . 
BASIC で この よう に 関数 を 再帰 的 に 定義 で きる と いう こと は , 実に 珍し く 注 目 に 値する も の 
と 考え られ ます . し か し , 再帰 呼出 し を 用 いて ゆく に は 少々 の 慣れ が 必要 で , この 短い プロ グラ 
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ム を 手 本 に し て 習熟 し て 欲し いと 思い ます . いずれ に し ろ , この 方 法 を 自分 の も の に し て ファ ン 
クシ ョ ン が 自由 に 使え る よう に な る と , プロ グラ ミン グ は で ぐん と 効率 的 な も の に な る で し ょ う . 


List 5-1 


19 DEF FNFACT(N)=COND(N=9 , 1 NFNFACT(N-1 ) ) 
29 INPUT X 
39 PRINT Xij"/ カイ ショ 9 作 jFNFACT(X) 


Run 
?16 
16/ カイ シラ" ョ 9 八 29922789888999 


※ End ※ 
Ready 


リス ト 5-1 の 実行 例 


( 4 ) リン クモ ジュ ー ル 
SMC-777 の オリ ジ ナ ルディ スク に は , "COPY . PAC*,。“PIC . PAC7。 EFFECT . PAC" の 

3 つの リン クモ ジュ ー ル ファ イル が 入っ て いて , これ ら を LINK と いう コマ ンド で , メモ リ に ロ 
ー ド する こと が で きま す . この 3 つ に は それ ぞ れ , 画面 の ハー ドコ ピー を 取る ため の コマ ンド , 
画像 デー タク の ロー ド と セー プ ブ に 関係 する コマ ンド , 効果 音 を 出す コマ ンド 群 が 入 っ て いま す . 
7 まく (は 

LINK “EFFECT . PAC” 
と し た あと (拡張 子 を 省略 する こと も 可能 )、 アン ダー ライ ン ( _ ) を 使っ て , 

_ UP1 (100) 


を 実行 する と , 上 昇 音 (上 に 昇っ て いく 感じ の 効果 音 ) が , SMC-777 の スピ ー カ ー か ら 出 て きま 
す . UP 1 と いう の は , EFFECT .PAC に 収め られ て いる 拡張 コマ ンド で , カッ コ の な か の 数 値 
で 効果 音 の 長き さ が 決ま り ま す . 拡張 コマ ンド を 実行 する に は , この ほか に CALL が あっ て , 


CALL UP 1 (100) 
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と し て も , 同じ 結果 に な り ま す . 
この EFFECT . PAC を 利用 し た 簡単 な プロ グラ ム を 湊 に 示し ます . 


|List 5-2 


19 MHILE 1 

29 K も =INKEY$ も ( 1 ) 

39 IF K$="U" OR K$="u" THEN CALL UP1(IRND(256 ) ) 
49 IF K ま $='"D' OR K ま ="d" THEN CALL DOMUN1(IRND( 256 ) ) 
っ 29 MEND 


EFFECT . PAC を LINK し た あと この プロ グラ ム を 実行 する と, U の キー を 押す と 上 昇 音 、D 
の キー を 押す と 下降 音 が 出る よう に な り ま す (プロ グラ ム を 止め る に は [ESC| を 押し ます . 忘れ 
まう さよ 9。 

と ころ で , LINK コマ ンド は プロ グラ ム 中 で は 実行 で き な い (実行 し よう と する と , プロ グラ 
ム が 中 断 さ れ て し まう ) の で , プロ グラ ム を 作っ た と き に は , 実行 前 に いち いち , 


LINK “EFFECT . PAC“ 


を 実行 する 必要 が あり ます . た だ し , 一 度 作っ て し まっ た プロ グラ ム は SAVE する と き に /C を 
付け る こと で , この メン ドウ な 問題 を 解決 で きま す . 試し に この プロ グラ ム を セー プ し て み ま し 
LN 請 

SAVE グ C ^UPDOWN? 
と 業 前 選 』 

Enter Startup Command Line (s ) 
ど 本 示さ A ま 9 の 5G5 IHSNehG 

LINK “EFFECT . PAC? 


と し て くだ さい . これ で , この UPDOWN と いう プロ グラ ム を ロー ド す る と , 自動 的 に 
EFFECT . PAC が リン ク さ れ ま す . 


(5 ) ファ イル の ロー ド と セー プ 


777 BASIC は Sony Filer で の 1 つの コマ ンド で す が , 一 度 BASIC に 入っ て し まえ ば , デ ィ ス 
ク 上 の ファ イル の 操作 は , 大 部 分 BASIC を 抜け 出す こと な < く 行え を ます. マイ クロ ソフ ト 系 の 
FILES に 相当 する DIR は , さき ほど 説明 し た と お り の 機能 を 持っ て いま す が , プロ グラ ム の セー 
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プ や ロー ド を 行う 命令 も 当然 存在 し て 、SAVE,、 LOAD と いう 名 前 に な っ て いま す . 


SAVE 
セー プ の た め の コ マン ド 。SAVE の 書式 は , 


SAVE [ く プ A また は /P>] [< ノ C>] [< デバ イス 名 : >] < ファ イル 名 >〉 [ .< 拡 張子 >]? 
[, く 機械 語 先頭 番地 〉, < 最終 番地 > ] 


と か な り 長 いも の に な っ て いま す . た だ し ほとん どの 部 分 は 省略 可能 で , た と えば TEST .BAS 
と いう ファ イル 名 で BASIC プロ グラ ム を セー プ す る に は 


SAVE “TEST* 


で OK で す . で は , ほか に ゴチ ャ ゴチ ャ と 付い て いる も の に 意味 が な いか と いう と そう で は な く , 
まず , 


SAVE/A TEST* 


と する と , プロ グラ ム は アス キー 形式 で セー プ さ れ ま す . アス キー 形式 と いう こと は , ブロ グラ 
ム の 文字 の イメ ー ジ その まま で プロ グラ ム が セー プ さ れる と いう こと で す ( こ れ を 指定 し な いと , 
マシ ン の 内 部 で 処理 し 易い 形 で セー プ さ れ ま す ). 

アス キー 形式 で セー ブ し た 場合 の 利点 は , まず TYPE と いう コマ ンド で , プロ グラ ム の 内 窒 を 
見 る こと が で きる こと . TYPE は Sony Filer の コマ ンド に も あり ます が , BASIC で も , 


TYPE [< デバ イス 名 : >] < ファ イル 名 > . く 拡張 子 >” 
の 形 て 実行 で てき ます . つま り , 
TYPE “TEST . BAS? 


と すれ ば , ディ スク 上 の ファ イル の 内 窒 が 画面 に 表示 され る の で す . また , プロ グラ ム の 結合 コ 
マン ド で ある MERGE を 実行 する と きも ,/A を 付け て セー プ し て お か な く て は な り ま せん 
(MERGE に つい て は 後述 ). 

決 に /C で す が , これ は , 前 の 項 で 説明 し た と お り , プロ グラ ム を ロー ド し た と き に 自動 的 に 実 
行 さ れる コマ ンド を 定義 する 場合 に 付け ます . 

な を お /P を 付け る と , プロ テク ト と いっ て , セー プ し た プロ グラ ム は , LOAD は で き て も LIST 
を 取っ た りす る こと が で き な く な り ま す . これ は 他人 に プロ グラ ム を 見 せな くす る た だ ため の 方 法 で 
す が , 一 度 設定 する と 二度と 解除 で き な い の で 注意 が 必要 で す . 

デバ イス 名 に つい て は , 省略 する と 現在 使用 し て いる ディ スク が 想定 され ます が , も ちろ ん , 
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SAVE ^A : TEST? 
と か , 
SAVE ^B : TEST? 


と し て 。 ディ スク ドラ イプ の 指定 を する こと が で きま す 。』 も し 増設 フロ ッ ピ ー デ ィ ス ク を 接続 
し て いる 場合 に 。 デバ イス 名 を 省略 し た と き に B ド ライ ブ が 指定 され る よう に し た いと き は 。, 
LOGIN と いう コマ ンド が 用 竜 さ れ て いて , 


LOGIN “B :? 


と すれ ば 変更 され ます . 
な お , この デバ イス 名 に は , カセ ッ ト や CRT, プリ ンタ な ど を 指定 する こと が で き て , それ ぞ 
1 


SAVE ^CTR : TEST”* 
SAVE “CON : TEST? 
SAVE ^LST : TEST? 


と いう 具合 に 指定 し ます . 

SAVE, LOAD で は , 拡張 子 ( マ ニュ アル で は タイ プ 名 ) を 省略 する と 自動 的 に BASIC を 表す 
.BAS が 設定 され ます . 先 に DIR の 項 で 説明 し た ワイ ルド カー ド を 有効 に 利用 し よう と する な 
ら , 自分 で 決め た 拡張 子 を 設け る の も 自由 で す が , Sony Filer が 自動 的 に 設定 し た り 、 特 別に 解 
釈 し た りす る 名 前 が あり , これ を 湊 に 挙げ ば ます の で , BASIC の プロ グラ ム を セー プ す る と き に 
は , 絶対 に 使わ な いよ うに し まし ょ う . 


ANN,。 PAC, PIC, LST, TST, EXE, MEM, LOG, IDX 


最後 に , 機械 語 の 先頭 番地 と 最終 番地 の 指定 で す が 、 こ れ は , BASIC の プロ グラ ム と 一 緒 に 機 
械 語 の プロ グラ ム を セー プ す る と き に 指定 し ます . た だ し , この 機械 語 は デバ イス 名 に ディ スク 


を 指定 し た 場合 に は 使用 で き な い の で , そう いう 使い 方 も で きる の だ な , と 覚え て お く 程度 で よ 
い の で は な いか と 思い ます . 


DISK RESET 

BASIC を 実行 し て いる 途中 、 シス テム メニ ュー へ 抜け 出さ な いで ディ スク の 入れ 門 え を 行う 
と , その ディ スク は 自動 的 に 読み 出し 専用 に な り , 書き 込み が で き な く な っ て し まう こと に 注意 
する 必要 が あり ます . こん な 場合 , 書き 込み を し よう と 思っ た ら , 
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DISK RESET いく ドラ イブ 名 : >” 
を 行う 必要 が ある の で す . この と き ド ドラ イブ 名 を 省略 する と , 使用 中 の ドラ イブ が 設定 され ます . 
LOAD 
セー ブ し た ファ イル を ロー ド す る コマ ンド が LOAD で す . LOAD の 書式 は , 
LOAD [ く /V>] [< デバ イス 名 : >] < ファ イル 名 〉[.< 拡 張子 >]? 


と な り ま す . /V を 付け た 場合 は , ベリ ファ イ と いっ て , 現在 メモ リ に ある プロ グラ ム と , 指定 し 
た ファ イル の 内 容 が 同じ で ある か 照合 し ます . ディ スク を 使用 する 場合 、 カ セッ ト と 違っ て 書き 
込み ミス は それ ほど 起こ り ま せん が , これ を 使っ て 一 応 照合 し て お 〈 と 安心 で す . 

な お , DIR を 使っ た あと , カー ソル を 移動 し て , 表示 され て いる ファ イル を ロー ド す る よう に 
すれ ば , 簡単 に ファ イル を ロー ド で きる の は , DIR の 項 で も 書い た と お り で す . 


( 6 ) その 他 の 主 な 特徴 


DEF FONT と FONT RESET 
SMC-777 の キャ ラク タ ・ ジ ェ ネ レー タ は , すべ て プロ グラ マブ ル で すか ら , ユー ザー が 自由 に 
定義 する こと が で きま す . 777 BASIC で は DEF FONT 命令 が それ を 行い , 書式 は , 


DEF FONT < キャ ラク タコ ー ド >〉 , “< フォ ン ト デー タッ >“ 
に な り ま す . 図 5- 1 に 示し た フォ ント を キャ ラク タコ ー ド 65 に 定義 する に は , 
DEF FONT 65,`02060A123E4282007 


と 


9 半 


り , 定義 後 
PRIINT CHR$ (65) 


を 実行 する と , 図 5 - 1 の キャ ラク タ が 表示 され ます . 一 度 定義 きれ た キャ ラク タ は , DEF FONT 
命令 で 再 定義 する か 。 リ セッ ト ボ タン も し く は 電源 を 切る 以外 に は , FONT RESET 命令 で 初期 
設定 に 戻す まで 保持 きれ て いま す . キャ ラク タ の 定義 は 。 


FONT RESET [< フォ ント セッ ト 番 号 (0 また は 1 )>] 


で , フォ ント セッ ト の 指定 (省略 時 は 0 ) に より , APPENDIX の キャ ラク タフ ォ ン ト 表 に 示し た 
と お り の 設定 に な り ま す . 従っ て フォ ント 表示 モー ド を 1 に 指定 する と ひら が な 表示 が で きる よ 
うに な り ま す . 
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点 を 打つ ドッ ト は 1 
打 た な い ド ッ ト は 0 


図 5-1 DEF FONT 


実数 型 

SMC-777 の 実数 型 (浮動 小数 点 型 ) の 変数 は 8 バイ ト で , 仮数 部 が 7 バイ ト の BCD 表現 , 残 
り の 1 バイ ト が 指数 及び 符号 と な っ て いま す . 777 BASIC で は , 特に 型 定 言 を 行わ な い 限り , 変 
数 は この 実数 型 に な り ま す . 

この 実数 型 を 用 いる と , 計算 機内 部 表現 (2 進 ) と 10 進 数 の 間 の 誤差 に 悩ま され る こと も な く 、 
計算 精度 も 上 が る 反面 , 演算 速度 は 遅く な る と いう 結果 を 生み ます . 


ラベ ル 

GOTO や GOSUB の 飛び 先 を , ラベ ル を 使っ て 指定 する こと が で きま す . この 機能 は Nas- 
BASIC な ど に も 備わっ て いま す が , これ を 使う こと て 飛び 先 の 機能 な ど を 名 前 で 示す こと が で 
き , 何より リナ ン バ ー を すれ ば コロ コロ 変っ て し まう 行 番 号 と い う 無味 乾燥 な シロ モノ か ら 解 放 
され る こと に な り ま す . ラベ ル は 行 の 先頭 に アス タリ スク (*) を 付け て 定義 し ます が , 具体 的 
を 使い 方 は 、 以後 の アロ グラ ム に た くさ ん 出 て きま す の で , それ を 参考 に し て くだ さい . 


5-e 効果 斉 こ サウ ンド 


パソ コン に お ける サウ ンド 機能 の 充実 は . この と ころ 天井 知ら ず ( ? ) に 伸び て ゆく 気配 が あ 
る よう で , な か に は それ を 売り 物 に する 機種 まで 出る 有 様 . 市 場 が そん な 状態 な も の で すか ら 、 
SMC-777 も それ な り に 充実 し た サウ ンド 機能 を 持っ て 世に 送り 出さ れ ま し た . 通常 の サウ ンド 出 
カカ に 加え , PSG (Programmable Sound Generator) と いう サウ ンド 専用 LSI (SN76489AN) が 
実装 され , ゲー ム の 効果 音 等 に 威力 を 発揮 する ほか , 自動 演奏 を 実行 させ た り エ レク トー ン と し 
て 使っ た り と , 様々 な 使途 を 生み 出せ る よう に 作ら れ て いま す . この 節 で は , BASIC が 備え て い 
る サウ ンド 用 の コマ ンド の 解説 と サブ ルー チン に 用 意 さ れ て いる 効果 音 を 利用 し て 、 サウンド 
機能 を も り た て る あれ これ を 紹介 し て ゆき ます . 


139 


5 草 777 BASIC へ の 招待 


( 1 ) コマ ンド と 効果 音 


777 BASIC に は "ピッ "と いう 短い 音 を 鳴ら す BEEP、 メロディー 演奏 に 用 いる PLAY, 和音 
を 奏 で る SOUND, ま た SOUND に よる 演奏 中 止 を 実行 する SOUND OFF の 4 つの サウ ンド 用 
共 本 コマ ンド の ほか, 演奏 終了 確認 の た め の 関 数 ECOS が 用 竜 きれ て いま す . な か で も SOUND コ 
マン ド は , マル チタ スク 処理 方 式 が 採用 され て いる た め , 音楽 の 進行 と 共に 画面 を 動か すこ と が 
可能 に な り ま す . で すか ら 目 と 耳 を 同時 に 楽し ませ る プロ グラ ム が 作れ る と いう わけ で , 案外 カ 
ラオ ケ プ ロ グラ ム な ど に 効果 が ある か も し れ ま せん (レー ザー ディ スク を 使う より 安 あ が り だ し 
…)、 まずは, その 基本 と な る コマ ンド の 説明 か ら か か り ま し ょ う . 


BEEP 

BEEP コマ ンド は , 単に “ピッ” と いう 音 を 出す だ け の も の で す が , プロ グラ ム に よる 処理 の 
で 示し た り , また 称 告 な ど に 利用 する と 役に立つ 存在 で す . さ ら に FOR 一 NEXT を 使用 

て 音 を 連続 的 に 出す と , これ は これ て 結構 使い 道 が な ある も の で す . 


PLAY 

PLAY コマ ンド は ,、 サ プ コ マン ド を 以降 に 続け て 入力 する こと で , メロ ディ を 演奏 し ます . 表 
5 - 5 に 示す の が サ プ コ マン ド の 一 覧 で ,。 テ ン ポ (Tempo),、 オク ター プ (Octave), 長 さ (Length), 
音程 (Note)、 休 待 (Pause) 等 か ら 成 っ て お り , 書式 は , 


BIAVSSB220E2PO04 NN P9 
8 
テン ポ 長 さ 3 音程 休 符 
ーー 
と いう よう に , 任意 の サ プ コ マン ド を いく つか 並べ て サブ プ コ マン ド 列 と し て 与え ます . 


0 サ プ コ マン ド で 指定 され た オク ター プ 


EGOMSDISEASEizGWRAINBNIC ROWeTK g 寺 3DYD キ 


図 5-2 N サ プ コ マン ド の 代り に CDE… で 音程 を 指定 
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音程 に つい て は , さら に 図 5 - 2 に 示す よう に , N コマ ンド の 代わ り に , CDEF…… 


形 に , 


gab と いっ た 


2 オク ター ブ 分 を 指定 する こと が で きま す 。 な お 。 半音 上 上 げ る と き は 。 プラ ス 。 ( 士 ) また 


は シャ ー プ (⑳、 半音 下 げ る と き は マイ ナス (一) を 音程 表す サ プ コ マン ド の あと に 付け ます . 


1 分 間 に 4 分 音符 を 何 回 数 える か を 指定 する 
初期 設定 は T120 


Length 
斉 の 長 さ を 全音 符 の 何 分 の 1 か で 指定 する 
付 点 音 符 は ピリ オド で 表 さ れる 
例 : 付 点 8 分 音符 ニニ L8. 
初期 設定 は L4 


目 定 され て いる オク ター プ の ド の 音 を 1 と し て 与え られ 
た 音階 を 演奏 する . 小文字 n で 指定 する と , 1 オク ター 
プ 上 の 音 に な る 

0 コマ ンド で 指定 


され た ー プ 
Yo (n2) (n4) 


N14 N16 


N1N3N5N6N8 N10 N12 N13 N15 N17 
(n1) (n3) (n5) 


L サ プ コ マン ド と 同様 の 形式 で 与え られ た 長 さ だ け 休 み 
を と る 

例 : 付 点 8 分 休 符 ニ P8. 
数 字 を 省略 する と P4 と みな され る 


囲ま れ た サ プ コ マン ド を , 最初 に 書か れ た 数 だ け 繰 り 返 
し て 実行 する 
例 : 2N1P4>*= ニ *N1P4N1P4? 


グラ フィ ッ ク サ プ コ マン ド へ の 移行 
これ 以降 の 文字 列 を DRAW 文 の サブ コマ ンド と し て 実行 
する 


表 5-5 PLAY の サ プ コ マン ド 
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また , この よう に 音程 を アル ファ ベッ ト で 指定 する 場合 . 上 サ プ コ マン ド を 用 い ず に , アル ファ ベ 
ッ ト の あと に 音 の 長 さ を 表す 数 字 を 付け て 指定 する こと が で きま す . 

小学 生 の ころ 音楽 の 授業 を サボ ッ た むき は , 何 か ひ と つ 楽 譜 を 同 ん で 、。 これら の サ プ コ マン ド 
と 対比 きせ て みる と よい で し ょ う …… 


SOUND 

SOUND コマ ンド も , PLAY コマ ンド 同様 サブ コマ ンド に よっ て , メロ ディ 及び 和音 を 演奏 す 
る も の で す . PLAY コマ ンド と の サ プ コ マン ド の 違い は 表 5- 6 に 示し た と お り で , 記述 方 法 も 
PLAY と ほぼ 同じ な の で す が , 音程 の 部 分 の み 注意 が 必要 で す . 


SOUND “S60L203N17 に N57TN8* 


4 分 音符 の 長 さ を n/60 秒 に 指定 する .PLAY 文 の T サ プ コ 
マン ド の 引数 を m と する と , n 三 3600 プ m の と き 同 じ 速 
さ に な る . 初期 設定 は S16 
Octave 

PLAY 文 の 02 て 05 が SOUND 文 の 01 て 04 に 対応 し て い 
る こと に 注意 . 初期 設定 は 03 


PLAY 文 の L サ プ コ マン ド と 同じ . た だ し , 引 数 に は 1 , 2 , 


4, 8, 16, 32, 64 と 付 点 の ピリ オド し か 用 いる こと が 
で き な い . 初期 設定 は L4 


PLAY 文 の P サ プ コ マン ド と 同じ . た だ し , 引 数 に は 1, 2, 
4, 8, 16, 32, 64 と 付 点 の ピリ オド し か 用 いる こと が 


PLAY 文 の も の と 同じ 


表 5-6 SOUND の サ プ コ マン ド 


5-2 。 効果 章 と サウ ンド 


SOUND OFF 
SOUND の 実行 と 同時 に ほか の コマ ンド を 実行 し て いる 際 . ほか の コマ ンド の 実行 終了 に 合わ 
せ , SOUND の 実行 が 途中 で も 強制 的 に 演奏 を 中 止 さ せる コマ ンド で す . 


EOS 

SOUND 命令 で は , マル チタ スク 的 に 音 と ほか の 処理 が 同時 に 行わ れる の は 前 に 書い た と お り 
で す が , EOS は , その 音 が 終っ た か どう か を 判断 する 関数 で , 引数 は あり ませ ん . 

SOUND に よる 音 が 鳴っ て いな いと き は 一 1, そう で な いと き は 0 を 値 と し ま ⑳:。 


効果 音 

オリ ジ ナ ルディ スク に 収め られ て いる リン クモ ジュ ー ル , EFFECT . PAC に は , PSG を 利用 
し て 効果 音 を 発生 させ る 拡張 コマ ンド が 用 意 さ れ て いま す . これ ら は 前 節 で 説明 し た と お り , 
LINK で リン ク し た あと アン ダー バー ( _ ) も し く は CALL で 呼び 出す こと が 可能 で す . この 
EFFECT . PAC に 内 蔵 き まれ て いる サブ ルーチン は 以下 の と お り . 


・ 上 昇 イ メー ジ 音 : UP 1 (n), UP 2 (n), UP 3 (n) 

・ 下 降 イ メー ジ 音 : DOWN 1 (n), DOWN 2 (n),。 DOWN 3 (n) 
・ 車 の 音 : CAR(n) 

・ ガ ン の 音 : GUN(n) 

・ 雑 音 : NOISE(n) 

・ パ ニッ ク 音 : PANIC(n) 


引数 は 0 一 255 の 整数 で ,。 値 が 大 きく な る ほど 変化 が 遅く な り ま す . また , 引数 の 記入 を 省略 し 
た 場合 は 自動 的 に 128 が 設定 され る よう に な っ て いま す . これ ら の 効果 音 の 組合 せ は , 文字 どおり 
ゲー ム プ ログ ラミ ング に 大 きみ な 効果 を 生む も の と 思わ れ ま す . 


( 2 ) PLAY プ ログ ラミ ング 


PLAY コマ ンド に 慣れ る た め , と りあ え ず 自動 演奏 プロ グラ ム を 作っ て みる こと に し まし ょ 
う . PLAY の 基本 は 楽譜 に 対応 し た 文字 列 の サ プ コ マン ド を 入れ て や れ ば よい わけ で , は っ きり 
言え を ば ルー チン ワー ク の よう な も の で , 難 か し くも 何と も あり ませ ん (根気 は 要り ます が ). ここ 
で は 1 曲 の み で は お も し ろく な い の で , 3 曲 か ら 選 択 で きる よう に プロ グラ ム を 書き まし た . 曲 
名 は 「 青 春 時 代 」, 「 秘 密 の 花園 」,「Yesterday Once More」. 選曲 が 趣味 に 合わ な いな ど と 文句 
を つけ る むき に は , 自分 で や れ , と あら か じ め お 断り し て お きま し ょ う (そう や っ て いる うち に 
パソ コン と 気持 ち が 通 じ 合 う よ う に な る の で す ). 次 の ペー ジ の リス ト 5-3 を 見 て くだ さい 、. 

行 番号 40 一 130 まで は 曲 を 選択 する た め の ル ー チ ン で し て , 曲 の デー タ ( サ プ コ マン ド の 文 
字 列 ) は DATA 文 を 用 いて 270 一 690 行 に 記憶 させ て いま す . 自 動 演奏 の た め の メ イン プロ グラ ム 
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は 150190 行 の 5 ステ ッ プ で , この 間 の ルー プ で , 1 小節 の デー タ を 読ん で は PLAY で 鳴ら し て 
いま す . 

少し 気 を 付け な く て は な ら な い の は , 繰り 返し の 終了 を DATA 文 の END (また は end) と い 
う デ ー タ て で 判定 し て いる と ころ ぐら いで す . この よう に 簡単 な 手順 で , 自動 演奏 を 実行 する こと 
が で きる の で す . 


。 ーーー PLAY DEMC -ー-ー 

4 コ 

PRINT " 1 : セイ ラ ュ ッ ラ ミタ " イ “" 

PRINT “ 2 : ヒミツ リ / 八 け ナツ * ノ ”" 

PRINT “ 3 : イエ スタ テイ リン スモ セア" 

PRINT 

INPUT " ト " ル し - ラ マス 2 スカ 「" jMSL 

IF MSL=1 THEN RESTORE 289 : GOTO LOOP 
IF MSL=2 THEN RESTORE 459 : GOTO LOOP 
IF MSL=3 THEN RESTORE 539 : GOTO ※LOOP 
END 
XLOOP 

READ S1$ 

IF S1*='"END'" OR S1$="end" THEN xS_END 
PLAY S1$ 

.G0TO ※LOOP 
*S _END 

PKINT "END* 

INPUT "RESTART (Y/N) " :As 

IF Aa$="Y' OR As="y" THEN RUN 

END 

”。 -- Sound data 一 

ーー セイ シュ ッ ラ "タイ ーー 


DATA L8ssL4 .eL8f#L4dL8SBBL2B 

DATA P4L8ABL46L8ABL2B 

DATA P4L8ccL4 .cL8sL4BL8GBL2B 

DATA P4L8 和 †# 千 し 4 和 f 生 し Be 年 せ し 2 填 提 

DATA PA4L8eeL4 、eL8f#L4dLSBBL2B 

DATA PAL8SABL4GL8ABL2B 

DATA P4L4cL4.cL8sBBGBL2B 

DATA P4L8ABL4GL8F#EL1E 

DATA L4eeL8eecAL2A 

DATA L4gf#eL8BGL2G 

DATA PAL8ABcL4 .eP4L8BBeL4 .g 

DATA PA4L9f#gL4 和 ff#L8e 十 持 L 1 十 提 

DATA L4ggL8ggf#sL1e 

DATA L4f##edL8ABL1B 

DATA P4L4EGABBgeP4L8f#eL4dL8f#eL1e 
DATA snd 

"ーー ヒミツ ノ 八 け ナツ " / ーー 

DATA T12902L8ggfseP8seededc4 .P8ggfeeP8eeefoged4 .P8 


List 5-3 
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479 
489 
499 
っ 99 
っ 19 


つと の 
っ 30 
っ 49 
つっ 9 
つ 6 り 9 
57 

つ は 0 
ピル 4 の 
699 
6109 
620 
639 
649 
659 
669 
679 
689 
699 
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DATA ddcBB4Baaqgfe4a4 .aaa 生 革 征 革 1 邊 革 っ せら 共 っ = ュ g# 人 2484F2 

DATA eeee4 .Pf-4eg4c4 .<2d4gs4 .P>cBcd4cde4oef4ef4s2Zf2e4c4 
DATA g4a4b4 .g4 .Pg4 ぉ っ 4g=d こ うつ . に し 2 そら ここ ご ら 2G4 . ビ そこ し 5= ぉ ご こら = な っ 4 。 
DATA ag4a454 .g2 . ビ ag2a54gasdc2ca4T96g2T129ab4T965 き 2Z112Z0o5ge1 2 と 
DATA a2T129gsci62f2T129Ps4c4dT26c2T129P2 


り 4TA EID 


ニー。 イエ スタ テ 人 リツ XX モア ョ ーー 
DATA ESE8F 8DH4088BB8BB80#8B8D せ 8= せ BBE4OH は SORACTSB コ ロー せ 4d05 せ 84 
DATA c 村 8 こ #2、 
DATA GBSBSc せ 4 本 叶 仁 Ba4J せ お d# 人 4 BBBF #1 
DATA P2P8E8EBF 8GHBB4BSB8OH8BB8DH8 こ =#SB4GH ら 5D#4DRBBBc 人 1d 拉 9 
DATA GC#BB4c 持 BC 本 2 
DATA dH4FH4a8d#tBc せ 5c せ Gc せ 8d 村 GegBdfBe8d せ 1 に 伯 こ 伯 4 こせ ロ d# お Be4s4c+ 
DATA e4 人 生生 2 
DATA es4Ff 后 4g 寺 8g#Bg#8g せ 8g 后 4 和 fBe8d せ 8e8d#Bc#8c 提 4G せ SBSB1 
DATA P2P4as ヨ fftBg#8g#8g#8g せ 8g キ 4 和 fBe8d せ Be8d#3cCBc#4G せ SBSB1 
DATA P2P4cH8d#3e8d せ Bs8T キ は キ 4=8d# キ Bs9d#Ba8T せ 5 千 4e8 和 To せ 4g#4 
DATA 年 8a=4c 持 BC 持 4 持 40 せ 8c 后 8BD せ 8BGB1 
DATA P2P8O#80#BF せ 8EBF せ 8O#20# せ 8A4F せ 8F#2 
DATA e4Ff}#4g#8Bo#Bg# せ gg 提 4f#Be8d せ Ba8d せ 8c#8c#46#8BSB1P2 
DATA e4F4g#5g せ 8q#8g8g#4 和 fBe8d せ Be8d せ 8c#8c 持 4G# せ BBSB1P2 
DATA G き 8G#8F# キ 8E8BF#80 せ 1 
DATA END 


C 1973 ALMO MUSIC CORP.S HANMNMER AND MAILS 
MUSIC. THE RIGHT FORJAPAN ASAIND TO 
PASIFIC MUSIC PUBLISHING CO..LTD. 


セイ シュン シラ ^ タダ ドイ 


1 
2 ビ ミ ツ ルル ハル ん ん の / 
イエ スタ テ ^* イ リン スモ ア 


ト ~ レニ ラマ スカ ? 画 


PLAY DEMO メ ニュー 画面 

「 音 春 時 代 」 作 曲 森田 公 一 

「 秘 密 の 花 回 」 作 曲 豊田 軽 般 

「 イ エス タデ ィ ワン スモ ア 」 作曲 カー ベン ター ズ 


( 3 ) SOUND プ ログ ラミ ング 


SOUND を 使う と 和音 が 利用 で きる た め , PLAY を 用 いた 場合 より 、 は る か に 音質 の 筐 か な 演 
奏 を 実行 させ る こと が で きま す . SOUND の 基本 は PLAY と た いし て 変り ませ ん の で , ここ で は 
単に 曲 を 演奏 する だ け で は な く , グラ フィ ッ ク 画 面 上 に 曲 の 内 容 に 伴っ た 変化 を 付け 、 つ いで に 
歌詞 も 曲 の 進行 に 合わ せ て 画面 に 表示 し て み ま す . 曲名 は , 昔 な つ か し い 「 ス キー の 歌 」( 曲 と 画 
面 を 合わ せる た め の 選 択 だ . 古い な ん て 文句 言う な ! )、 リス ト 5-4 を 見 て くだ さい . 

この プロ グラ ム は , 実行 する と まず 最初 に 山 の 絵 を 描き ます . そし て 演奏 が 始ま っ た ら 歌 詞 が 
画面 左下 に 表示 され ます . 歌詞 の 表示 は 曲 の 進行 に 従っ て さき へ 進み 、 その 間 ず っ と 音符 の 形 を 
し た 雪が 舞っ て , 山 が だ ん だ ん 生化 粧 し て 終了 する も の で す . 自動 演奏 の 方 式 は PLAY と 同様 で , 
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5 意 777 BASIC へ の 揚 侍 


音符 デー タ は DATA 文 に 記憶 させ て いま す . メイ ン と な る プロ グラ ム は 180 一 280 の 11 ス テッ プ 
で , 全体 は ,190 行 の WHILE 1 と 280 行 の WEND で ルー ゲ プ に な っ て いま す . この ルー プ の な か 
で まず 画面 左下 に 歌詞 を 書き , 続い て 1 小節 分 の メロ ディ を 読み 込ん で か ら , SOUND で この メ 
ロディ ー を 鳴ら し , 最後 に バッ ク の 色 を 変え , 音符 の 形 を し た 震 を 降ら せる 働き を 持つ サブ プ ル ー 
チン ( *CCHANG ) へ 飛び ます . 

この サ プ ブルー チン は , まず DEF PALETTE で バッ ク の 色 を 変え , 470 行 か ら 530 行 の 間 を 繰り 
返す こと で , 雪 を 降ら せま す . この ルー プ を 抜け 出す 条件 に EOS が 使わ れ て いて , これ に より 
SOUND で 鳴ら し て いる メロ ディ ー と 画面 の 動き を うま く 合 わせ て いる の で す . 

読者 諸兄 は すでに お 気付 き で し ょ う が , この プロ グラ ム の 発展 型 こ そ 。 何 を 隠 そう 絵 の 出る カ 
ラオ ケ な の で す よ . グラ フィ ックス 画面 に 楽譜 を 出し て や る の も よし , イメ ー ジ スケ ッ チ を 入れ 
る の も よし , パソ コン の 使い 方 革命 だ と 思う の で す が …. 


List 5-4 


19 “ 
29 Ma SOUND DENMO --- 


49 DEF INT A-Z 

59 DIM KASHI ま (4 ) , SNOU(9 ) 

69 GOSUB XKASHI “ カラ シテ"ー タ / ヨミ コミ 

79 MIPE : CPALETTE OFF : CURSOR OFF : CONSOLE 49 
89 GOSUB ※BACK "人 A" ゅ クノ エ ヲ カク 

29 GOSUB MAIN 

199 PRINT "END* 

119 PRINT "RESTART (Y/N)" j : Ab=INKEY$(1 > 

129 IF A ま ='"Y' OR A$=" ッ " THEN RUN 

139 CONSOLE 89 : MIPE 


149 END 

159 “ 

169 " --- Main routine 一 
179 “ 

189 xMAIN 

199 UMHILE 1 

299 READ S1$ 

210 C=C+1 


220 K=INT((C-1 )/4 ) 

239 PRINT (1,22) jKASHI$(K ) 
249 IF S1$="END" THEN RETURN 
259 READ S2$,S3$ 

269 SOUND S1$,S2$,S3$ 

279 GO0SUB *※CCHANG 

289 .MEND 


399 " ---- Subroutine < く 八 " リウ クノ エラ カク ジウ ニニ ニニ 
319 “ 

329 BACK 

339 GLOCATE( 9 , 199 ) , 1 , -1 

349 FOR II=1 TO 15 

359 DEF _ PALETTE 1,[/4, 1, 1/2 

369 BOXF(9,I*19 )-(319, IX19+1 1 ) , [ 

379 NEXT 


ーーー ニー ーー ニー ニー ニー ーーーー ニ ーー 一 ーー つう コ ョ ろう ュ っ う ペー ビービー モー コニーー 還 キュ ュー ニー ニーーー ピ ーーー 
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5-2 効果 音 と サウ ンド 


389 CIRCLE( 169 , 9 ) , 299 , 169,7 
399 DEF PALETTE 9,9,9,6 

499 PAINT(1,159 ) , 9,7 

419 RETURN 

429 “ 

439 " --- < く 八 " リウ ク ノエ ノイ ロブ カエ ル  & ユキ ヲ フ ラ セ ル > ーーー 
449 “ 

459 ※CCHANG 

469 IF C<16 THEN DEF _ PALETTE 16-C,16-C,16-C,16-C 
479 UMUHILE 1 

489 [=( 了 +1 ) MOD 19 

どり VOUT SNOU( 1 ) , 9 

599 SNOU( I )=IRND( 599 ) %2 
519 VOUT SNOMK( I ) ,7 

っ 20 IF EOS THEN RETURN 
539 UEND 

549 ^ 

つう 59 “ --- Kashi data 一 - 

っ 69 

579 KASHI 

589 FOR 1I=9 TO 3 

599 READ KASHTI$( { ) 


699 NEXT 
619 RETURN 
629 “ 


639 DATA "ヤマ ハシ ロカ " ネ アサ ヒ ヲ ア ヒ " テ " 

649 DATA " ス へ "ルス キー/ カセ "キル ハヤ サ “" 

659 DATA " ト フ " 八 コ ユキ カ マイ タツ キリ カ “ 

669 DATA "オォ ォ コ ノミ モ カケ ル ヨ カケ ル 

679 “ 

689 “ --- Sound data -- 一 

699 “ 

799 DATA S25L2ELA4FE,L2GL4AG,L1C 

719 DATA LSEL46GL8AL2c ,L8CL4EL8FL2E ,L1C 

729 DATA L8.dL16dL8cAL4GL8EA,L8 .FL16FL8FFL4EC,L2FC 
739 DATA L2.GP4,C-P4,L2.G 

749 DATA L2EL4DC,L2CL4C-C,L1C 

59 DATA L8cL4cL8cL2A,L8AL4AL8AL2F ,L1F 

769 DATA L8.GL16AL8GEL4DD ,L8.EL16FL8ECL4C-C-,L2CG 
779 DATA L2.CP4,CP4,L2.C 

789 DATA L4.cL8dL4ec,L4 .EL8BFL4GE ,L2FC 

29 DATA L8dL4cL8AL2G ,L8FL4FL8FL2E ,L2FC 

899 DATA L8.EL16GL8AGL4Ac ,L8 .CL16EL8FEL4FA,L2FD 
819 DATA L2.dP4,GP4,L2.G 

829 DATA L2eL4de ,L2GL4GG,L2CL4GC 

839 DATA L8cL4cL8cL2A,L8AL4AL8AL2F ,L1F 

849 DATA L8.GL16AL8GEL46d,L8.EL16FL8ECL4C-L8GF ,L2CG 
859 DATA L2.cP4,EP4,L2.C 

869 DATA END 


「 ス キー」 作 詩 時 雨 音 沢 作曲 平井 康 三朗 
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5 章 777 BASIC へ の 招待 


ャ て NBn カ "4 アリ ヒラ アテ 
に 


ズ へ "ルス キー ノ カセ * ル ハヤ キリ ト フ "ルコ コキ カマ オク リキ リカ 
加 


SOUND DEMO の 実行 例 


( 4 ) 777 オ ル ガ ン 


今 ま で の プロ グラ ム が お し きせ の 楽譜 を 演奏 する だ け だ っ た の に 対し , ここ て 紹介 する の は , 
パソ コン を オル ガン と し て 機能 させ , 自分 で 演奏 を 楽し むための プロ グラ ム で す . た だ し この オォ 
ル ガ ン , メロ ディ ー は 出せ る も の の 和音 まで は 手 が 回 ら ず , ま ア 初心 者 用 の オル ガン と で も 言い 
まし ょ うか . リス ト 5- 5 が その プロ グラ ム で す . REM 文 で プロ グラ ム の 要 所 に 解説 を 付け て お 
きま し た の で , よく 読ん で 内 容 を 考え て みて くだ さい . 実行 する と ,。 オル ガン の キー と パソ コン 
の キー ボー ド と の 対応 が 表示 され て , また オク ター プ と 何 分 音符 か を 選択 で きる よう に し て ある 
た め , 演奏 前 に 任意 の キー で 指定 する よう に し て くだ さい . そし て , 実際 の 演奏 は (CAP LOCK 
を は ず す こと を お 忘れ な く , 小文字 で す よ ), パソ コン 側 の キー に 対応 する 鍵盤 の 位置 に 赤い マー 
ク が 現れ , そこ は か と な く オ ル が ガン 演奏 の 味 を 出す よう に 工夫 し て み ま し た . な お この プロ グラ 
ム に あら か じ め 曲 の デー タ を 入れ て お き 対 応 キ ー を 演奏 に 合わ せ て マー キン グ す る と , 昔 な つ か 
し い 自 動 オ ル ガ ン ( 昔 は あっ た ん だ , 昔 は …… ) 風 に な り ,、 お も し ろ い の で は な いか と 思い ます . 

サウ ンド 機能 に 関す る 説明 は これ くら い に し て お きま す が , ハー ドウ ェ ア の マヤ マニュアル に PSG 
に 関し て 詳し く 解 説き れ て いる た め , BASIC の コマ ンド 以上 の 機能 を 望む 方 は . それ ら を 参考 に 
し て アセ ンプ ラ に 挑戦 し て いた だ きた いと 思い ます . また , 余談 に な り ま す が 本 体内 蔵 の スピ ー 
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5-2 効果 韻 と サウ ンド 


カー は 、 本 体 下部 に 付け られ て いる た め , 机 の 上 な ど で 使う ときには, スペーサ ー を か まし て 少々 
浮か す と 少々 音量 が 上 が り ま す . も ちろ ん , より 音量 を 必要 と する 場合 は 、 ア ンプ と スピ ー カ ー 
を 接続 する べき で す ( な お , ここ で 用 いた グラ フィ ックス コマ ンド に 関し て は , 汰 章 の グラ フィ ッ 
クス コマ ンド と パレ ッ ト の 節 を 参照 し て くだ さい ). 


List 5-5 

19 “ 

20 “" --- PLAY DEMO _ く オル カ " ン > ーーー 

39 “ 

49 CONSOLE 49 : CURSOR OFF : FONT RESET 9 

っ 59 UIPE 

69 DIM KP(1,39 ) 

79 GLOCATE (9,189 ) , 1 ,-1 8 6 
89 GOSUB xKPOINT_DATA_IN / ホイ ント / イチ / テ "ー タ ヲ イレ ル ルー チン へ 
99 GOSUB *KBOARD_ ^ キー ホー ト " ヲ ツク ル ルー チン へ 

199 CCOLOR 4 ^ ホ ? イ ント / イロ ヲ アカ ニス ル 

119 “ 

129 ※LOOP メイン ルー チン 

139 A ま =INKEY$( 2 ) 

149 IF A ま ="" THEN 139 > 

159 N=INSTR( "zaxdcugbhn jm , 1] . j/q2u3e4C モ 6y7u899-iopE ] 人 ) 
169 ” ナニ ヲ オラ タカ ミル 

179 IF N=9 THEN 139 上 
189 IF _N>29 THEN ※MODSET ^ モー ト " セリ トナ ラ モー ト " セリ トル ー チ ン へ 
199 IF 0=4 AND N>24 THEN 138 
299 PRINT (KP(9,N) ,KP( 1 ,N) ) : CHR$( 236 ) j ” ホッ イン トラ 9 ツ 
21 ロ 9 PLAY"N(N)" 
229 PRINT CHR ま (8)j" "5 ^ ホ ? イ ント ラ ケス 
239 GOTO ※LOOP 
249 “ 
259 ※MODSET 
269  N=N-29 
279 IF N>4 THEN TENPO ^ テン ホ ? / セリ テイ ナラ ※TENPO ^A 
289 PLAY "ON)" ” オン カイ / セリ テイ 
299 0O=N 
399 GOTO LOOP 
319 “ 
329 ※XTENPO ^ テン ホ ? / セリ テイ 


339  N=2^(N-5) 
349 。 PLAY “L(N)~ 
359 GOTO ※LOOP 


379 %※KBOAFD キー ホー トド" ラリ クル 
386 FOR 【=1 TO 17 
396 BOXF(16xI+4,6)-(16xI+16,51 ) ,7 


499 NEXT 
419 FOR 1=1 TO 17 
429 IF (1 MOD 7)=3 THEN 459 


439 IF (1i NOD ?)=9 THEN 450 

449 BOXF(16※T+11 。26)-(16※1+23,51 ) , 15 
459 NEXT 

469 PRINT (3。22):"Z XCVUBNM,./QMEK 
479.。 ERHINT CGC2515D5S3 則 G H J 全 証 2 3 4 
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5 斉 7 


4Sd 
490 
っ 99 
っ 19 
Oz9 
っ 39 
っ 49 
っ 9 
っ ed 
っ 79 
っ 89 
っ?9 
606 
610 
620 
639 
e40 
6S9 
669 
679 


77 BASIC へ の 指 待 


FOR I=G TO 6 


BOXF(49*I+16,84 )-(49*I+54 , 190 ) , 6 


NEXT 
FOR I=9 TO 6 


BOXF(40*1T+38,85 ) -( 49*1+54 ,94 ) ,9 


NEXT 
FOR I=9 TO 3 


BOXF(48*[+16,132)-(48*I+62,148) ,6 


NEXT 
FOR I=9 TQ 3 


BOXF(48*[+44,133)-(48*1+62,142).9 


NEXT 

FRINT (9,1)j' --- Octave 
PRINT (4.3)』" 1 
PRINT (4,5)』"『 8 ヶ 
PRINT (9,7)j′ --- Length 
PERINT (4.9)j) 3 2 
PRINT (4,11)』′ ji 0O 


こう 
Le 9 
ユ 
〇 ヽ 
99 
3) 
ひい ヽ 
選 


P [ コ ら 人 


PRINT (9,13)j" --- Keyboard ーー-" 


RETUKRN 


659 “ 


629 
799 
719 
726 
739 
74 

759 
760 
779 
729 
790 
869 
819 
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%KPOINT_DATA_IN 
RESTORKE 779 
FOR I=1 TO 29 
READ KP(9,1) ,KP(1, 1 ) 
NEXT 
.RETURN 


\KPOINT_DATA 


DATN 3 20. 839 520 DOO。 6 の 9 
DATA 2,20,19,18.11.29,12.18,13,29,.14.18,15,29 
DATA 17,20,18,18,19,29,29,18,21 ,29 
DATA 23,29,24,18,25,29,26,18,27,20 ,28,18.22 9 
DATA 31,29,32,18,33,29,34 ,18,35, 29 


ーーー Octaue ーーー 


ーーー Length --- 


16 _ 32 64 


1 2 4 8 
| 男 軌 皿 西 皿 中 


ーーー Keuboard --- 
SD GHJ 


し > 2.3 4 .67 


2XCVBENHN。。/ZGMERTYU 


PLAY DEMO 


ー ニ ーー Octave ーーー 
1.-* ロロ 4 ー--8 
| 臣 | 下 | 豆 ) 中 
ーーー も いも が ーー ニー 
1 っ 4 8 16 32 64 
| 画 | 区 | 束 】 画 】 吐 | 皿 中 


ーー-ー Keuboard 一 ーー 


上 【 沿 旧 


ZXCVBNM > 


く < オル ガン > の 実行 例 


5-3 ディ スク 関連 の コマ ンド 


5-3 ディ スク 関連 の コマ ンド 


今 ま で に も 何 度 か 書い て きた よう に , SMC-777 は マイ クロ フロ ッ ピ ー デ ィ ス ク の ドラ イプ を 標 
準 装備 し た パソ コン で あり , この 777 BASIC も ディ スク の 能力 を 十分 に 活か せる よう に な っ て 
いま す . 

本 節 で は , ここ まで に 説明 し た DIR, LOAD, SAVE と いっ た コマ ンド 以外 の ディ スク 関連 コ 
マン ド を 紹介 し て ゆき ます . 本 節 を 読み こなす こと で , せっ か く の デ ィ ス ク を 宝 の 持ち 腐れ と し 
な い ,。 夏 い 777 オ ー ナ ー と な っ て くだ さい 。 


( 1 ) OPEN プ CLOSE 


すでに 何 度 も 書い た よう に , ディ スク に は , ファ イル と いう 形 で 情報 が 詰め 込ま れ て いま す . 
ファ イル に は デー タ を 格納 する 形 の 違い に より , アス キー ファ イル と バイ ナリ ー フ ァイル の 2 種 
類 が あり , た と えば BASIC の プロ グラ ム を セー プ す る と き に ノブ A を 付け る と アス キー ファ イル 
(アス キー 形式 の ファ イル ) と し て セー プ さ れ ま す . 

ファ イル を デー タ と し て 扱 づ 場合 に は , これ を 読ん だ り 界 いたり ずる どき に コン ピピ デー ク と 
その ファ イル の 間 に 橋 を か け て , 情報 を 受け 渡し で きる よう に し な けれ ば な り ま せん . 

た と えば ディ スク の な か に TESTDT NTEST27 更 TBSR94 の 0 GO9M9 つ の アポ 認 g6732 
ル が あっ た と き , OPEN ノ I #1, "TEST 1 ? を 実行 する と , .SMC-777 と TEST 1 の 間 に は 図 5 


- 3 の よう に #1 と いう 橋 が (入力 用 に ) か けら れ ま す . 同様 に OPEN/O で は 出力 用 の 橋 が か け 
られ ます . 


SMC-//7/ 


図 5-3 ファ イル か ら 橋 を か ける 


OPEN/R, OPEN ノ S は 内 部 表現 形式 の デー タ (バイ ナリ ー フ ァイル ) を 読み 書き する た め の 
橋 を か ける 命令 で , 内 部 表現 形式 と は BASIC の プロ グラ ム が メモ リ に 格納 され て いる 状態 の よ 
うに , マシ ン 内 部 で の デー タ 表 現 と 同じ 形式 の こと で す . バイ ナリ ー フ ァイル は アス キー ファ イ 
ル と 條 い , 直接 TYPE する こと は で きま せん が , スペ ー ス の 効率 が よく , マシ ン 内 部 で の 処理 効 
率 も よい の で よく 使わ れ ま す . 

OPEN R で は バイ ナリ ー フ ァイル の 入力 用 に 橋 が か けら れ , OPEN/S で は バイ ナリ ー フ ァ 
イル の 出力 用 に 橋 が か けら れ ま す . 
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ら で 、 す で に 橋 が か けら れ て (OPEN され て ) いる ファ イル に 、 も う 1 本 橋 を か け よ うと 


OBEN 氏 4454 TESL2T 
OPEN/Z0 #1。 TEST 2 


で は まず い の で , 


OPEN2 ま 1. HEST 2 
CLOSE # 1 
OPEN ジ 20. お DEST 2 


の ぴの) に が る お わけ で すず 、 ま た: 


0PEN ノ 1#1, TEST 2 ? 
OPEN 0#2, TEST 4? 


の よう に 別 の ファ イル に は 別 の 橋 で も っ て 対応 し ます . な お , 用 事 が 終っ た ら 橋 は 切っ て お く 
(CLOSE する ) よう に し まし ょ う . 


「2 ) PRINT せ ノ INPUT 


の >、 人 ム 、 


さて 橋 を か けた ら , デー タ を 出し 入れ し な けれ ば な り ま せん . デー タ の 出し 入れ の た め の 命 令 
は ,、 アス キー ファ イル と バイ ナリ ー フ ァイル と で は 違っ て いて , アス キー ファ イル の 書き 込み に 
は PRINT ぉ を 使い ます . 使い 方 は PRINT #1, A$ の よう に な り ま す . 

た と えば OPEN ノ O #3,。 "TEST” と し て ある と き に , PRINT #3, “ABC"。 DE” を 実行 
する と TEST′ と いう ファ イル に 「ABC (カン マ に よる 5 個 の スペ ー ス ) DE」 と いう 1 行 が 書 
き 込ま れ ま す . つま り PRINT ABC*, “DE* を 実行 し た と き に , 画面 に 文字 を 出す の と 同じ 形 
式 で 。 フ ァイル に も 書き 込ん で いく の で す . また PRINT # に 続く 変数 の 並び が [ : ] ま た は [ , ] 
で 終っ て いな けれ ば , 区 切り と し て [Cs rr] が 書き 込ま れ ま す . 

書き 込み が 終っ た ら CLOSE し て くだ さい . CLOSE し な いと , OPEN で 作っ た 橋 の 上 を 移動 中 
の デー タ が 失わ れる こと に な っ て し まい ます . 

アス キー ファ イル か ら デ ー タ を 読み 込む に は , INPUT # また は INPU エ ノン L # を 使い ます . 
INPUT # は [ , ] また は [Cs rr] を , INPUT ノ L # は [Ce rm] の み を , デー タ の 区 切り と みな し ます . 
また , 読み 込む デー タ が 残っ て いる か どう か を 知る の に EOF を 使い ます . 

デー クタ が 通る 橋 に # 2 を 使う と する と , ま ず OPEN ノ I #2, TEST” で #2 と いう 橋 を か け て 
INPUT #2。A$ と いう よう に 実行 し ます . これ で A$ に は TEST と いう アス キー ファ イル に 
入っ て いる 最初 の デー タ が 読み 取ら れ て きま す . あと は INPUT # が 実行 され る た びに , 次 々 と 
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読み 込ま れ て きま す . 最後 の デー タ を 読み 込む と , EOF( 2 ) の 値 が - 1 に な り , 読み 込み が 准 了 
し た こと を 知る こ と が GSwR3 あ 

EOF(n) の n は 読み 込み に 使っ て いる #n と 同じ 番号 を 指定 し ます . IF EOF(2)= ニ ー1 THEN 
CLOSE : END な どの 1 行 を INPUT # の 後に 入れ て お け ば , 「 最 後 の 行 (End of File) を 読 
み 込 ん だ の に , まだ 読み 込 も うと し て いる 」 と お こら れ な く 〈 く て すみ ます . EOF は 0 と 一 1 の 値 し 
か と ら ず , これ が 論理 的 な 偽 と 真 に 対応 する の で , IF EOF( 2 ) と か WHILE NOT EOF(2 ) の 
よう に 使う 9 こと が で き 計 < 


( 3 ) SEND ン RECEIVE 


SEND と RECEIVE は , バイ ナリ ー フ ァイル を 読み 書き する と き に 使う 命令 で す . SEND は 
PRINT # と 同じ よう に , SEND #1, A$ の よう に し て 使い ます . PRINT まで は [ ,] が 文字 
列 中 に ある と, 区 切り 記号 と な り ま し た が , SEND で は そう いう こと は あり ませ ん . ま た , PRINT 
# で は (PRINT と 同じ よう に ) 数 字 を 文字 列 に し て 書き 込み ます が , SEND は マシ ン 内 部 の 形式 
その まま で 書き 込む の で , ファ イル が 小さ く て すみ ます . 

RECEIVE は , SEND に よっ て 書き 込ま れ た ファ イル を 読み 込む と き に 使う も の で ,INFUT * 
と 同じ よう に 使い ます . た だ し アス キー ファ イル と は 違っ て EOF が 使え を ませ ん の で , SEND で 書 
き 込 ん だ 数 以上 に RECEIVE で 読み 込ま な いよ うに 工夫 し な けれ ば な リ り ませ ん. 

BASIC の プロ グラ ム (アス キー セー プ き され て いな いも の ) は ,、 この バイ ナリ ー フ ァイル の 形 で 
登録 され て お り SEND, RECEIVE を 使え ば , こう いっ た プロ グラ ム フ ァ イル を デー タ と し て 投 
うこ と る だ の きま す 、 


( 4 ) デー タフ ァイル を 扱う サン プル ・ プ ログ ラム 


これ まで に 説明 し た 命令 を 使っ て , 万 能 情報 管理 アロ グラ ム を 作っ て み ま し ょ う . 入力 し た 情 
報 を 決 々 と ファ イル DATA. BOX に 詰め 込ん で , 好き な と き に 自由 な 形 で 取り 出し て き て くれ 
る ブログ みん すず: 

プロ グラ ム は 3 つの 機能 を 持っ て いま す . 最初 に この プロ グラ ム を 使う と き や , DATA. BOX 
を 空 に し て し まい た いと き に 使う INITIALIZE, INITIALIZE 5 DATA.BOX に デー タ 
を 詰め 込む APPEND, APPEND で 詰め 込ん だ 情報 の な か か ら 必 要 な も の だ け を 取り 出し 
て くれ る SEARCH で す . 

まず は リス ト を 見 て み ま し ょ う . 


List 5-6 


1919 “ === genera] purpose data managemen 七 ら y ッ Stem ニニ ニ 


1939 MIPE : FONT RESET : CONSOLE 89 
1949 DISK RESET 
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1959 DEF FNLC$(0$)=COND(0$>"Z" OR 0$ く "A",0 ま ,CHR$(ASC( 0 ま )+32 ) ) 
1969 DIM A$(10990 ) 

1979 “ 

1989 ′ -- Main -- 

1999 “ 

1199 xMENU 

1119 MIPE 

1129 PRINT ,“ ー- GPDMS -" 

1139 PRINT 

1149 PRINT ,"initial ize,.・・.( ュ ) 

1159 PRINT ,'append....・・.・・ (a) 

1169 PRINT ,'search.,..・.・ 。(a) 

1Z09 引 PRIENiI 靖 ii コ U 六 の ee (qa) 

1189 PRINT 

1199 INPUT "UMUhat"s your job'jC$ : PRINT 

1299 C=FNLC$(C$) 

1219 IF C="" THEN *MENU 

1229 IF C$="'i" THEN GOSUB ※INITIALIZE : GOTO MENU 
1239 IF C$="a'′ THEN GOSUB ※APPEND .DATA : GOTO ※MENU 
1249 IF C$='"s" THEN GOSUB *※SEARCH : GOTO MENU 
1259 IF C ま ='"q'" THEN MIPE : PRINT "job end' : END 
1269 GOTO xMENU 

1279 “ 

1289 " -- initialize - 一 

1299 “ 

1399 ※XINITIALIZE 

1319 PRINT "Linitialize mode]" 

1329 INPUT "SURE (yZn)? ",A$ : PRINT 

1339 IF FNLC$(A ま ) く >"y ッ " THEN RETURN 

1349 PRINT "Linitializing・.・・]" 

1359 OPEN /0 #1,"DATA.BOX" 

1369 CLOSE 

1379 RETURN 

1389 “ 

1399 " -- append data - 一 

1499 “ 

1419 xAPPEND .DATA 

1429 PRINT "Lappend mode]" 

1439 OPEN /1 #1,'"DATA.BOX* 

1449 OPEN /0 #2, "TEMP .BOX”* 

1459 UMHILE NOT EOF(1 ) 

1469 INPUT /L #1.D$ 

1479 PRINT #2.D$ 

1489 UEND 

1499 “ 

1599 INPUT /L "Append data is = ",DS : PRINT 
1519 UMUHILE D*<>"“" 

15209 PRINT #2,D$ 

1539 INPUT /L "Next append data is = ",D ま : PRINT 
1549 UEND 

1559 CLOSE 

1569 ERA "DATA,.BOX" 

1579 REN "TEMP.BOX'" TO "DATA.BOX* 

1589 RETURN 


154 


5-3 ディ スク 関連 の コマ ンド 


1599 “ 

1699 " -- search - 一 

1619 “ 

1629 XSEARCH 

1639 PRINT "Lsearch mode]" 

1649 INPUT /L "Type search string is = ',S$ : PRINT 
1659 IF S$="" THEN MENU 

1669 OPEN /I #1 "DATA.BOX" 

1679  UHILE NOT EOF(1) 

1689 INPUT /L #1.D ま $ 

1699 IF INSTR(D も ,S$)>9 THEN PRINT D$ 
1799 MEND 

1719 PRINT 

1729 CLOSE 

1739 GOTO SEARCH 


1410 一 1580 行 は APPEND の 部 分 で す . 1430 一 1480 行 で DATA.BOX か ら TEMP.BOX へ デー 
タ を コピ ー し , その 後に 入力 され た デー タ を TEMP. BOX に 書き 込ん で いま す . そし て , ここ か 
ら 抜け る と き に DATA. BOX を 削除 し , TEMP. BOX の ファ イル 名 を DATA.BOX に 変え て い 
ます . これ で DATA.BOX に デー タ が 追加 され た こと に な る わけ で す . 

それ で は プロ グラ ム を 打ち 込ん て 実行 し て み ま し ょ う . 

最初 に MENU の 画面 が 現れ ます か ら , まず il で initializee し まし ょ う . 湊 に デー タ を 打ち 込 
み ま す . a[ と する と [ append mode] と 出 て , デー タ の 入力 を 待っ て いま すか ら , た と えば "486 
-7111 ascii [| 」 の よう に 打ち 込ん で いき ます . いく つか 打ち 込ん だ ら , 何 も 入 れず に [を 押し 
て も と の MENU の 画面 に 戻し て くだ さい . こん ど は s[ 品 で search を 始め ます . ascii[ と 打ち 
込ん で も , 486-7111 [| と 打ち 込ん で も , さき ほど の 「486-7111 ascii」 と いう 行 が 出 て くる の が 
確認 で きる で し ょ う . 

SEARCH で は , 入力 され た 文字 を 含む 行 を すべ て 表示 し て くれ ます か ら , 住所 録 な ど を 打ち こ 
ん で 郵便 番号 で 検索 すれ ば , 同じ 地区 に 住む 人 間 を 一 目 で 見 た リ りす る こと も 簡単 に で きま す . 
カカ す る デー タ は どん な も の で も よく , た と えば 出前 を 頼む と き の メ ニュ ー を 入れ て お け ば , どの 
店 が 何時 まで や っ て いる か , か つ 丼 は いく ら だ っ た か な ど を 知る こと が で き て 便利 で す . 


(5 ) MERGE と CHAIN 


これ まで は , デー タフ ァイル に つい て 話し て きま し た が , ここ で ちょ っ と プロ グラ ム フ ァ イル 
を 扱う 命令 に 触れ て お きま す . プ ログ ラム ファ イル を 扱う 命令 で は , すでに LOAD と SAVE を 知 
っ て いる と 思い ます が , この 他 に 777 BASIC に は , MERGE と CHAIN の 2 つの 命令 が 用 意 さ きれ 
て いま す . 

MERGE は , 現在 メモ リ 上 に ある プロ グラ ム と , ディ スク 上 の アス キー セー プ さ れ た プロ グラ 
ム を 結合 させ る も の で す . た と えば ディ スク 上 の "PROG . ASC′ と いう プロ グラ ム を MERGE 
PROG . ASC” [| を 実行 し て メモ リ 上 の プロ グラ ム と 結合 させ る と, 決 の よう に な り ま す . 
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メモ リ 上 PROG . ASC" メモ リ 上 
10 PRINT 10 PRINT 
20 PRINT 20 PRINT 
30 PRINT MERGE “PROG . ASC” 30 PRINT 
40 PRINT 40 WIPE 40 WIPE 
50 PRINT 50 WIPE 50 WIPE 

60 WIPE 60 WIPE 

70 WIPE 70 WIPE 


これ で わか る よう に , MERGE に よっ て “PROG . ASC" は 空い た 行 番号 に は その まま , 行 番 号 
が 存在 する 場合 は 前 の プロ グラ ム を 消し て , 自分 を 書き 込ん で ゆき ます . 一 般 に は MERGE する 
プロ グラ ム の 行 番号 は , メモ リ 上 の プロ グラ ム の 行 番号 と 重 な ら な いよ うに 配慮 する 必要 が あり 
3 

CHAIN は , 決 々 と プロ グラ ム を 実行 し て ゆく た め の 命 令 で , 2 通り の 使い 方 が あり ます . ひと 
つ は プロ グラ ム 全 体 を 次 々 と 変え て いく 使い 方 で チェ イン スモ ー カ ー と いう と 夕 ベ コ を 切れ め 
な くど ん どん 吸う 人 を 言う の で す が , そう いう 感じ に な り ま す . も う ひ と つ は , プロ グラ ム の 一 
部 を 決 々 と 変え て いく やり方 で MERGE に 似 て いま す が , プロ グラ ム の 実行 が と ざれ な い 点 が 違 
いま す . MERGE は , プロ グラ ム 中 で 使っ て も プロ グラ ム の 実行 が 終っ て し まい ます . CHAIN の 
使い 方 は , 


① ② ③③ の ⑳ ⑤ 


の よう な 感じ し で, ① を 付け る と さき ほど の 2 番目 の (MERGE の よう な ) 使い 方 に な り ま す . ② 
を 付け て いな いと , 変数 に 入っ て いた 値 は すべ て 消さ きれ て か ら 湊 の ④ に 示す 行 番号 に 実行 が 移り 
ます . ② を 付け る と , 変数 の 値 は その まま で ④ に 示す 行 番号 に 実行 が 移り ます . に は CHAIN す 
る プロ グラ ム 名 を 書き ます . ④ は CHAIN が 終っ た あと 実行 を 始め る 行 番号 で , 省略 する と プロ 
グラ ム の 頭 か ら 実 行 を 始め ます . ⑤ は , CHAIN を 実行 する 前 に . も と の プロ グラ ム か ら 消 し て お 
きた い 行 が ある と き , DELETE に 続け て 消し た い 部 分 を 指定 し ます . 例 を 挙げ て み ま し ょ う . 


リス ト 5- 7 の CHAIN に , DELETE が な いと , CHAIN が リス ト 5-8 を 読み 込ん で 実行 し た と 
き に リス ト 5- 8 の 102-106 行 が 残っ て し まい うま くい きま せん . な お CHAIN で プ M を 指定 し 
た と まき に 読み 込む 対象 と な る の は , アス キー ファ イル だ け で す . 
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List 5-Z 
19 


29 " -- chain sampls - 一 
39 “ 

49 A ゐ =1 : B=2 : C=3 

59 CHAIN /M/V "CCC.ASC" ,79,DELETE 199- 
69 “ 

79 GOSUB 199 

89 END 

99 “ 

192 UMHILE 1 

194 BEEP 

196 UEND 


List 5-8 


199 “ 

119 " -- program to bs chained -- 
129 “ 

139 PRINT A,B,C 

149 RETURN 


5-4 日 AGIC に よる MEMO の 活用 


SMC-777 の ハー ドウ ェ ア の 最大 の 特徴 が FDD 1 基 内 蔵 と いう こと で あれ ば , ソフ ト の 目玉 は , 
この MEMO で ある と 言え まし ょ う . 少な く と も 一 般 大 衆 に と っ て , 買え ば ウン 万 円 は する で あろ 
う ス プレ ッ ド シー ト 型 の 簡易 言語 が , 本 体 を 買う こと で オマ ケ に 付い て くる と いう の は 見 逃 せな 
い 魅 力 で す . し か も この MEMO, タダ で 付い て くる も の だ か ら た いし た こと は な か ろう な ど と 思 
っ た ら 大 間違い . 電子 黒板 と し て の 使い 勝手 は 十分 に 考慮 され て お り , 書き 込み や 削除 と いっ た 
エディ ッ ト 関 係 は ファ ンク ショ ン キ ー を 使っ て 簡単 に 行え る し , ロー マ 字 か ら カ タカ ナ や ひら が 
な へ の 変換 も キー を 押す だ け で 可能 . それ で いて 横 が 128 列 に 縦 が 1999 行 も あり , 少々 どこ 
ろか か な り の デー タ を 呑 み 込ん で し まい ます . し か も FDD 内 蔵 の メリ ッ ト を 目 一 杯 生か し , 簡単 
か つ 迅 速 に SAVE, LOAD が で きま す . 

また , 検索 や 並べ 換え と いっ た この 類 の 簡易 言語 に 付き も の の 機能 も 備え て お り , サ プ フ ァ イ 
ル を 作っ て ファ イル を より 豊富 な も の に する こと も 十分 可能 . 計算 機能 の 方 で も 四則 演算 と べき 
乗 計算 に 加え , 16 種 類 の 関数 が 用 意 き され て いる の で , よ は ど 高 度 な 要求 で も 出さ れ た と きま 以外 , 
まず 困る こと は あり ませ ん . まァ , 少な く と も 高い 値札 を ぶら 下げ て いる スプ レッ ド シ ー ト 型 の 
簡易 言語 の うち で も , か な り の も の が この MEMO より 劣る 機能 し か 持っ て いな いこ と は 間違い 
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な し . ユー ザー の 使い 方 決 第 で か な り の 働き を 示す , 汎用 タイ プ の 電子 ノー ト と 言う こと が で き 
る の で す . 

さて , ソニ ー の 手先 の ご と くず い 分 と MEMO を 持ち 上 げ ま し た が , し か し それ で も , や は り 
MEMO を この まま 使っ た の で は お の ず と 限界 が 生じ ます . MEMO は 作 表 や 簡単 な 集計 に は 実に 
便利 な 存在 な の で す が , 高度 な データ 処 理 で も ある と か デー タ を 視覚 化し て 見 せる グラ フ 処 理 に な 
っ た りす る と , と た ん に お 手 上 げ と な っ て し まい ます . すなわち , MEMO を より 積極 的 に 使い こ 
な そう と 思っ た な ら , BASIC な り 機 械 語 な り に リン ク さ せ , より 豊富 で 強力 な 機能 を 付加 し て や 
ら ね ば な ら な いと いう こと で す . 

本 節 で は , そん な MEMO の バー ジョ ン ア ッ プ の 一 例 と し て , 成績 の デー タ を MEMO で て 入 
力 , 集計 し て , し か る の ち そ の デー タ を BASIC に より 解析 し , グラ フィ ッ ク 処 理 し て 表示 する 方 
法 を 紹介 し て み ま す . な お , MEMO の 基本 的 な 操作 方 法 は , 付属 の マニ ュ ア ル を 参 照 し て くだ さき 
いい 5 


( 1 ) 作 表 


まず 最初 に . オ リ ジ ナ ルディ スク か ら MEMO の 部 分 だ け を 取り 出し て , 専用 の バッ クア ッ プ デ 
ィ ス ク を 作っ て 〈 く ださい. これ は オリ ジ ナ ル の 保守 と いう 観点 も あり ます が , むし ろ MEMO に あぁ 
れこ れ デ ー タ を 入れ る こと に よる 記憶 容量 が 心配 な た めで , フォ ー マ ッ ト 後 MEMO だけ を コピ 
ー し た バッ クア ッ プ ディ スク で は , お お むね 250K バイ ト 程 度 の エリ ア が 確保 さき れ ます . MEMO 
の 作 表 範囲 が 横 128 列 、 縦 1999 行 で ある こと を 考え る と (ディ スプ レイ 表示 は 横 3 列 、 縦 20 行 ) 
これ だ け の フリ ー エ リア は 基 非 と も 欲し いも の で す . 

さて , リス ト 5- 9 を 見 て 下さ い . MEMO を 用 いて 作成 し た , 8 人 の 生徒 の 国語 , 算数 , 理科 , 
社会 の 成績 リスト で す . この リス ト は デー タ の 入力 後 , MEMO の ソー ト 機 能 を 使っ て 成績 順に 並 
び 換 え 、 その後 プ リン ト ア ウト し た も の で , MEMO で は ここ まで の 作業 を , デー タ 入 力 以 外 は す 
恋 %G8DE つ の ワ ァ ンク ショ ン キ ー で 行え ます . 


IList 5-9 
272 穫 剖 PO 32 コ *。 39222 リカ 。。 ラ ャ カイ ! コ "27 イ ペイ キン 
ュ 9] 1 199 12 11 83 

ァ イ ] 2 89 34 22 22 

リョ 9] 3 79 5e 3 27 

り イ ] 4 69 ?8 4< 

マチ コ 5 59 s9 55 58! 

カス" ミ 6 49 15 66 67! 

ヒ n コ 7 39 26 7 65! 

マコ ミ 8 29 37 88 43! 
ーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーー キーーーーーーーーーーーーーーー 
"99 イ 459 348 396 479! 1673 

ペイ キン 5 の 5 ま 4385 電 42.5 5 の 9.875. 52 .281 
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( 2 ) MEMO が 作る ファ イル 


MEMO を 使っ て シー ト を 作る と , ディ スク 上 に は 次 の よう な 名 前 の ファ イル が 作成 され ます . 


MEMO.IDX 
MEMO1 .MEM MEMO2.MEM MEMO3. MEM…… MEMO060 .MEM 


これ ら は すべ て , アス キー 形式 の ファ イル で , シス テム メニ ュー の TYPE, PRINT。 BASIC 
の TYPE, PRINT# INPUT# 等 で 扱え る よう に な っ て いま す . 

MEMO1 . MEM , MEMO2 . MEM 等 に は シー ト の 内 容 が 入っ て いて , この な か に は シー ト の 
それ ぞ れ の セル (マニ ュ ア ル で は ウィ ンド ウ と な っ て いま す が , ここ で は 一 般 的 な セル と いう 用 
語 を 使う こと に し ます ) の 内 容 が 入っ て いる も の と , シー ト の フォ ー マ ッ ト が 入っ て いる も の と 
が あり ます . そし て MEMO. IDX は 名 前 が 示す と お り イ ン デ ックス ファ イル で ,。 MEMOX※X. 
MEM と いう ファ イル に 対す る 目次 の よう な も の で す . 


MEMO . IDX 
具体 的 に は MEMO. IDX は , 


< ファ イル 名 > ,< フ ァイル 番号 > [ , く モー ド >] CR/LF 


と いっ た も の が いく つか 集まっ た 形 に な っ て いて , MEMO で 作ら れる 1 つの シー ト に 対し て 上 
の よう な も の が , 2 つ 書 き 込 まれ て いま す . 1 つ は < ファ イル 名 > が , その シー ト の 名 前 (シー 
ト の 名 前 と は MEMO の イン デック スモ ー ド の と き 入 力 し た ファ イル 名 の こと を 指し ます ) に な っ 
て いる も の . 2 つ 目 は < ファ イル 名 > が , シー ト の 名 前 に , 


.FORM 


を 付け た も の に な っ て いる も の で す . た と えば SEISEKI 2 と いう 名 前 で , シー ト が 作ら れ て いる 
と する と , MEMO .IDX の な か に は , 


SEISEKI2,。 メメ メメ 
SEISEKI 2 . FORM, メメ メメ 


と いっ た も の が 書き 込ま れ て いる こと に な り ま す . < ファ イル 名 > が シー ト の 名 前 その も の に な っ 
て いる も の は , MEMOX ※. MEM の うち セル の 内 容 が 入っ て いる も の に 対す る イン デック ス . 
< ファ イル 名 > に .FORM の 付い た も の は , MEMOx xX. MEM の うち シー ト の フォ ー マ ッ ト が 入 
っ て いる も の に 対す る イン デック ス で す . 
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<〈 フ ァイル 番号 >〉 は MEMOXX. MEM の メメ を 示し ます . た と えば 


SEISEKI2 . FORM, 7 ,128 
SEISEKI2, 8. 3 


と いっ た も の が 書き 込ま れ て いた と する と , MEMO 7 .MEM は SEISEKI2 と いう シー ト の フォ 
ー マ ッ ト が 入っ て いる ファ イル , MEMO8.MEM は SEISEKI2 の セル の 内 容 が 入っ て いる ファ 
イル と いう こと に な り ま す . MEMO が シー ト の 内 容 を セー プ す る と き は , その と き 使 われ て いな 
い 〈 フ ァイル 番号 > の うち 一 番 小 きい も の を フォ ー マ ッ ト の ファ イル に , その 湊 に 小さ い < ファ 
イル 番号 〉 を セル の 内 容 が 入っ て いる ファ イル に 割り 当て ます が , 自分 で MEMO.IDX を 操作 す 
の 店 き は 。 こう な く て も いっ こう に 差 支 ふえ あり ませ ん , 

最後 の < モー ド 〉 に は , 


bit 7 〈 フ ァイル 名 > を イン デック スモ ー ド の と きま 表示 する か どう か を 選択 する 
1 だ と 表示 され な い 


bit 6 未 使用 
bit 5 未 使用 
bit 5 未 使用 
bit 4 未 使用 
bit 3 未 使用 
bit 2 未 使用 


bit 1 |bit1 と bit0 で 計算 の モー ド を 示す 
bit 0 00 Nocal モー ド 01 Manu モー ド 10 未 使用 11 Auto モー ド 


の よう な 8 ビッ ト を 10 進 数 で 表し た も の が 入っ て いま す . < ファ イル 名 > が メメ .FORM と な っ て 
いる も の は bit 7 が 立っ て いて , .FORM が 付い て いな いも の は , bit 7 は 立っ て いま せん . 


セル の ファ イル 


シー ト の な か の それ ぞ れ の セル の 内 容 の 入っ た ファ イル は 。, 
< 行 番号 〉。 < 列 番号 〉, [ < カラ ー コ ー ド >〉 ] , < セル の 内 容 > CRLF 
と いっ た も の が 集まっ た 形 に な っ て いま す . < カラ ー コ ー ド は >, 


bit 7 未 使用 
bit 6 未 使用 
bit 5 1 だ と 計算 結果 で ある こと を 示す . Auto , Manu モ ー ド の ファ イル を Search し た 
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bit 
bit 
bit 
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も の を セー プ す る と, 数値 の 入っ て いる セル は 皆 こ の ビッ ト が 立つ 


4 未 使用 

3 未 使用 

2 bit 2 。 1, 0 で その セル の 文字 の 色 を 表す 

1 BASIC な どの カラ ー コ ー ド の 各 ビ ッ ト を 反転 きせ た も の 
0 


と いっ た 8 bit を 10 進 数 で 表し た も の で , 0 の と き は 省略 で きま す . 
アス キー ファ イル に な っ て いる 関係 上 , < セル の 内 容 > に コン トロ ー ル コー ド が 含ま れ て は いけ 


ませ ん 。 


また く < セ ル の 内 容 > の 前 まで に は スペ ー ス が 入っ て は いけ ませ ん . 


フォ ー マ ッ ト の ファ イル 
シー ト の フォ ー マ ッ ト の 入っ た ファ イル は , 


《 機 能 番号 >, < 列 番 号 >,, < 内 容 > CR プ LF 


と いっ た もの が 集まっ た 形 に な っ て いま す . 
機能 番号 は 1 か ら 4 まで で , それ ぞ れ 決 の よう な 意味 を 持っ て いま す . 


な お , 


: < 内 容 > が < 列 番号 > の 列 の 見 出し (画面 上 で それ ぞ れ の 列 の 一 番 上 に 出 て いる も の ) で 


ある こと を 示す 


: < 列 番号 > の 列 が 右 詰 めで ある こと を 示し , < 内 容 > は 「L」 に な っ て いる . この 場合 < 内 


容 > は 本 来 冗長 な 情報 で ある が , ここ が 「L」 に な っ て いな いと , 無視 され て し まう 


: < 内 容 > が < 列 番号 > の 列 の Formula の Using の 内 容 で ある こと を 示す 
・ < 列 番号 > の 列 が Limit の 列 で ある こと を 示し , < 内 容 > は 「E」 に な っ て いる 


この 「E」 も 2 の 場合 と 同様 に 冗長 で ある が , な く て は な ら な い 


参考 まで に リス ト 5 -10 に MEMO.IDX の 内 容 , リス ト 5 - 11 に MEMO07.MEM。 リ スト 


5 - 12 に MEMO8. MEM の 内 容 を それ ぞ れ 表示 し て お きま す . 


国王 証 間 四 押 押 拓 List 5-10 
SEISEK1I .FORM,5, 128 
SE ISEKI ,6 
SE ISEK12 .FORM ,?,128 
SEISEKI2.8,3 
SE ISEKI 1 、FORM, 1 , 128 
SE ISEK1 1 , 2 
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5 章 


List 5-11 


に 


に 


に 


ドニ に ーー に に に に に 二 こ 』 


List 5-12 


m 777 
Ns で い s1 AA 
上 」 ぐ ぐ ご き で JOQ m G ぃ ヽ O OF に トコ GO 宮守 G ぐ ゆめ の OO 『 く Q W) ヽ O 
1 コ o--KuSQSNS--RoSM8G-- で SESE -- と いよ の の --o き ご 


ここ OIDS や ここ いこい ご こい ーー こ ジ ご 


ず コ mvdvdivtcd4CNCCNCOCOOOOOoOooooo 避 きき 避 き きき の の の の の の の ヽ O い OoO ぃ oO ヽ O ヽ O 
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6,6,,6 ア 7 

に す 宮 だ 導 

イタ UPBHEI 

7 26 が 

ょ づ 」 39 

ア 7, 4, 。 26 

イア ぁ 9 下 衣 の 7 

ア ,6。 ? 65 

rr 

8 。 1 , ,。 マ ユミ 

8,2。 8 

8,3。,29 

S 45 337 

5 > 

8 , る 、,43 

IT 
の 。 1 。、、 ーーーーーーーーーーーーーー ニ ーー ニーー ニ ーーーーーーーーーーーーーーーーーー 一 
7 Ra 

be 者 サ ゲ イ 


109 ,3, ,=SUM(C1 :C8 ) 
19,4, > 三 SUM(D1 : D8 ) 
19 ,5, ,=SUM(E1 :E8 ) 
19,6, ,=SUM(F 1 :F8 ) 


OR 
19,8, ,=SUM(C1 :F8 ) 
11 1 。, ヘ イキ ン 


11 3, ,=AVG(C1 :C8 ) 
11,4,,=AVG(D1 : D8 ) 
11 5,,=AUG(E1 :E8) 
11 6 ,= ニ AUG(F1 :F8) 
11 7 1 

11 9。 =AVG(C1 :F8) 
149。」 


( 3 ) プロ グラ ム 例 


MEMO で 作成 し た SEISEKI2 の ファ イル か ら デ ー タ を 読み 出し 、 グ ラフ 処理 し て 表示 する プ 
ログ ラム を リス ト 5- 13 に 表示 し ます . この プロ グラ ム は 人 金 部 で 5 つの プ ブロック か ら な り , 各部 の 
構成 は 以下 の よう な も の で す . 


① MEMO.IDX の な か か ら MEMO で 作成 し た ファ イル 名 を 検出 する 

② MEMO で 作成 し た 該当 ファ イル 名 の ファ イル か ら , セル の 内 容 を 読み 出す 

③ MEMO で 作成 し た 該当 ファ イル 名 の ファ イル か ら , フォ ー マ ッ ト の デー タ を 読み 出す 
④ 上 記 ②, ③ で 得 ら れ た デー タ を 集計 し , ディ スプ レイ 上 に 表示 する 

⑤ デー タ を グラ フ 処 理 し , 棒グラフ の 形 で ディ スプ レイ 上 に 表示 する 


プロ グラ ム の 構成 は お お むね この よう な も の で す の で , 以下 行 番 行 順に , 要点 を 絞っ て 説明 し 
て ゆき ます . 
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90 一 170 


180 一 220 


240 一 340 


410 一 460 


480 一 640 


680 
690 一 760 
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・ MEMO.IDX の ファ イル を オー プン し ます . 
・ こ の 9 ステ ッ プ で , MMD$ に" .? を 含ま な い 行 の < ファ イル 名 > が 記憶 され ます . 


これ は リス ト 5- 10 の , 


SEISEKI 
SEISEKI 1 
SEISEKI 2 


の 3 つの ファ イル 名 が MMD$ (NUM) に 記憶 され る こと を 示し ます . 


・ OPEN し た ファ イル を CLOSE し , か つ MMD$ (NUM) に 記憶 し た ファ イル 


名 を 出力 し ます . 


・ キー ボー ド か ら 入 力 さ れ た 番号 の ファ イル 名 を , MEMO . IDX か ら 探 し 出し 


ます . 発見 され た ファ イル 名 は DNAME$ に 記憶 され , リス ト 5-10 で 言う と, 
SEISEKI 2 , 8. 3 が DNAME$ に 記憶 され る こと に な り ま す . 


・ 見 つけ られ た ファ イル 名 か ら , MEMO xx.MEM に 対応 する ファ イル 名 (xx 


に は 最初 の ",” の 後 の 数 値 一 一 ここ で は SEISEKI2, 8, 3 の た だ ため, 8 に な る 
ーー が 入り ます ) を 作成 し ます . 


: MEMOx x .MEM の ファ イル か ら , 解析 に 必要 な デー タ を 読み 取り ます . } ぅ 


ち , 560 一 570 行 は ,['] の デー タ 終 了 マ ー ク の 検出 , 580 一 590 行 は [ ! ] を 検出 
し , 個人 別 デ ゲー タ の 区 切り マーク を 検出 し ます . DL$ に は リス ト 5-12 の 1 行 分 
の 文字 列 が 記憶 され て お り , こ れ は 1180 一 1240 行 の サフ レー チン で , 解析 に 不 必要 
な 文字 等 は 削除 され る こと に な り ま すし , 解析 に 必要 な デー タ は HITO$ 
(NIN, KOU) で 記憶 され ます . 


: MEMO . IDX か ら 検 出し た ファ イル 名 を , ディ スプ レイ 上 に 表示 し ます . 
: MEMO . IDX か ら シ ー ト の フォ ー マ ッ ト の 入っ て いる ファ イル 名 を 探し , 対応 


する ディ レク トリ 中 の ファ イル 名 (ここ で は MEMO 7 .MEM ) を 作成 し て 
OPEN し , MSG $ (INUM) に 必要 な 項目 を 記憶 し ます . 


: 700 で OPEN し た ファ イル 名 を CLOSE し ます . 


ここ ま て が, MEMO の 内 容 を 読み 取る た め の プ ログ ラム で , これ 以降 は , 


780 一 1130 
1260 一 1680 


: 生徒 の 成績 を 集計 し , ディ スプ レイ 上 に 表示 し ます . 
: 成績 の 棒グラフ を , ディ スプ レイ 上 に 表示 し ます . 


以上 が MEMO と BASIC の リン ク プ ログ ラム の 概要 で す . すでに お 気付 き と 思 いま す が , 行 番 
号 780 以 降 の プロ グラ ム は , デー タ の 持つ 質 や 内 容 に 応じ て 適宜 作り 直す べき も の で , その 方 が 視 
覚 効果 を 高め る 上 で , より 有効 で ある と 思わ れ ま す . 

この よう に , それ 自体 な か な か 結構 な 機能 を 備え た MEMO に , BASIC に よる プロ グラ ム を リ 
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ンク させ る こと で , さら に 強力 な 簡易 言語 に 仕上 げ る こと が で きる わけ で す . ここ で は 力点 を 視 
覚 効果 の 方 に 置き まし た が , ここ で 試み た デー タ の 読み 出し を さら に 強化 する こと で , た と えば 
高度 な 数 値 管理 で ある と か シミ ュ レ ーション な ど に も , MEMO の 応用 範囲 を 拡大 で きる も の と 
思い ます . 


List 5-13 


Ne 
29 ′ --- MEMEO = BASIC --- 

39 * 

49 xMAIN 

59 UIPE : CLEAR : DIM MSG$(29 ) , MMD*( 39 ) 
69 CONSOLE 49 

?9 PRINT : PRINT "FILE MENU' : PRINT 
89 OPEN /I #1, "MEMO.IDX" 


29 NUM=1 
199 UMHILE NOT 〈(EOF(1 ) ) 
119 INPUT /L #1.MENU ま $ 


129 A1=INSTR(MENU$," ," )-1 

139 B1=INSTR(MENU* ま ," .") 

149 IF B1<>9 THEN 199 

159 MMD ま (NUM )=LEFT$(MENU も , A1 ) 
169 NUM=NUM+ 1 

179 MEND 

189 CLOSE 

199 PRINT " No。 File name" 

299 FOR [=1 TO NUM-1 

219 PRINT TAB(3)jIi' ":MMD*( 1 ) 


229 NEXT 

239 ^ 

249 xFIND 

259 PRINT : INPUT "FILE No. "MNON 

269 IF MNON<=9 THEN PRINT : PRINT "PROGRAM END ' : END 


279 IF MNON>NUM THEN xNOFIL 
289 OPEN /1 # せ 1 "MEMO.IDX" 
229  MNAME=MMD ま (MNON ) 

399  MHILE NOT (EOF(1 ) ) 


319 INPUT /L #1,DNAME ま 

329 LN0=INSTR(DNAME*$,MNAME$+" 。「 ) 
339 IF LN0 く >9 THEN FIND2 

349 MEND 

359 “ 

369 ※NOF {し 


3 っ 79 BEEBMGEOEOR 4 

389 PRINT : PRINT "File not found" :CLOSE 

329 。 CCOLOR 7 : PRINT : GOTO 79 

499 

419 xFIND2 

429 CCOLOR 3 : PRINT : PRINT "Found:"jMMD$(MNON) : CCOLOR 7 
439 LNO1=INSTR(DNAME ま ," ," )+1 : DN$=MID$(DNAME ま LNO1 ,2 ) 

449 IF RIGHT ま (DN ま , 1 )=" ," THEN DN$=LEFT ま (DN ま *, 1 ) 

459 MA ま $="MEMO"+DN ま +" .MEM" : DN=VAL(DN$) 

469 . CLOSE 


489 ※YOMU 


429 OPEN /[ #1 ,MA$ 


5 章 777 BASIC へ の 招待 


99 NIN=9 

19 CHK=9 

っ 29  MHILE NOT (EOF(1) ) 
うつ 39 NIN=NIN+1 

っ 49 FOR KOU=1 TO 128 


っ 29 INPUT /L #1,DL* 

っ 69 EN1=INSTR(DL$,"“^) 

う 79 IF EN1 く <>9 THEN CLOSE : GOTO xEFILE 
っ 89 PAS=INSTR(DL$," 1" ) 

っ 99 IF PAS<>9 THEN CHK=CHK+1 : GOTO 529 
699 GOSUB *HENKAN 

619 HIT0$(NIN, KOU )=DL* ま 

629 NEXT 

639 MEND 

649 CLOSE 

659 “ 

669 ※EFILE 


679 MIPE : CONSOLE 89 

689 PRINT MMD*$(MNON ) 

629  MNAME1$=LEFT$(MAS, 4 )+STR$(DN-1 )+" 、MEM" 
799 OPEN /[ #1,MNAME1$ 

719  MHILE NOT (EOF(1 ) ) 

720 INUM=INUM+1 

739 INPUT /L #1,DL ま 

749 GOSUB ※HENKAN 

7S59 MSG ま ( INUM )=DL* 

769 MEND 

779 CLOSE 

789 PRINT 4 

7929 FOR K=1 TO CHK 

899 PRINT USING 「'i  。HTTO ま (KS1) 
819 NEXT 

BZ2OKIERTNT  」 コ "ウケ イ ヘイ キン “ 

839 FOR 1=3 TO 6 


849 PRINT USING 『 1 MSG ま ( { ) 

859 6G01=9 

869 FOR J=1 TO CHK 

879 PRINT USING " 半 提 提 持 培 寺 "VAL(HITO$S(J, 1 ) ) 

889 601=GO1+VAL(HITO$*(J, 1 ) ) 

899 NEXT 

299 G02=GO1/CHK 

219 PRINT 1「") : PRINT USING 「 杜 持 拉 提 井土" 501 ,G02 
229 NEXT 

ZS9ERINT ”" ”jSTRING ま (57,。"-" )3 "3STRING$(13。 "一" ) 
249 PRINT "ココ"97 イ "5 

259 604=9 

269 FOR I=1 TO CHK 

979 603=9 

989 FOR J=3 TO 6 

299 6503=G03+VAL(HIT0 ま (1 ,J) ) 
1999 NEXT 


1919 PRINT USING "半音 拉 拉 井 ",G033 

1929 ME0( { )=GO3 

1939 G04=G04+GO3 

1949 NEXT 

1959 PRINT “ 1 j 3: PRINT USING 「 村 拉 拉 提 井 寺 "504 
1969 PRINT "  ^ イ キン 「『j』 

1979 HEI=9 : HEI1=9 : HEI2=9 
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ーー ーーー ーーーーーーー ーーーーーー ーーー ーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーー 


Z 


Z 


FOR =1 TO CHK 
HE 1=MEO( 1 )/4 : HEI1=HEI1+HETI 
PR INT USING " 半 提 提 揚 柏 " HETI: 
NEXT 
HE [2=HE {1/CHK 
PRINT “ 1 ": : PRINT USING 「 析 柏 提 拉 守 寺 "HE12 
GOSUB ※HYOU 
GOTO ※MAIN 
END 


※HENKAN 


ICHL=1 
FOR 1=1 TO 3 6 
ICHI=INSTR( ICHI , DL まあ, 」” )+1 
NEXT 
DL も =MID ま (DL* ま , ICHI , 255 ) 
RETURN 


※HYOU 


PRINT : INPUT "Hit-RETURN KEY" ,A$ 
UIPE : GMODE 1 
DEF PALETTE 1.3,4,Z 
GCOLOR 1,.3,3,9 
GCLEAR 1,.9 
BOXE(9 ,9)-(319,199).,4 
LINE(9,29 )-(319,29 ) ,5 
LINE(59 , 29 ) -(59 , 129 ) , 5 
LINE(391 , 29 )-(391 , 199 ) ,5 
LINE( 1 76。29 )-( 176。122 ) 。5 
FOR CFT=9 TO 3 
BOXF (69※CFT+89 , 8 )-(69XCFT+199 , 13) ,CFT+2 
BOXE (69*CFT+89 , 8 ) -(69※CFT+199 , 13) ,9 


NEXT 

I YSD=9 

FOR YSFT=1 TO CHK 
IYSD1=IYSD 
IYSD=IYSD1+4 
C0=2 


FOR XSFT=3 TO 6 
XBAR=VAL(HITO0 ま (YSFT,XSFT ) ) 
IYSD=IYSD+3 
IXB=XBAR※2 5+51 
IYB=IYSD+39 
BOXF(S1 , IYB )-(IXB, TIYB+S) , CO 
BOXE(51 , IYB )-( IXB, TIYB+3 ) , 9 
C0=CO+1 

NEXT 

NEXT 
PY=3 
FOR HI=1 TO CHK 
PY=PY+2 
PRINT (5,PY) USING 『*i "HITO ま (HI 。1 ) 
NEXT 
1 XX メニ 
FOR KI=3 TO 6 
IXX= ニ TXX+15 
PRINT (IXX-4,1 ) USING 'i 1 MSG$(K1 ) 
NEXT 


ーーーーーー ーーーーーーーー 一 
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5 章 777 BASIC へ の 哲 待 


1669 LOCATE (15,23) 
1679 INPUT "Hit-RETURN KEY" ,A$* 
1689 RETURN 


SEISEKI2 
リョ 9 コ 7 ケイ] 
69 
78 


コ * 97 イ 
へ イキ ン 


Hit-RETURN KEY 男 


まず 成績 を 表 の 形 で 表示 する 


179′ 計 mm 7) mm 3D( 


| 


Hit-KETOM ME 


成績 を グラ フ に する 
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巳 草 グラ フィ ックス の 世界 


SMC-777 の 特徴 の ひと つ に , グラ フィ ックス 機能 の 充実 ぶり を 挙げ な いわ け に は いか な いで し 
ょ う . オプ ショ ン と は いえ 比較 的 低 価 格 で サポ ー ト され る カラ ー パ レッ ト は , 4096 色 か ら 16 色 を 
選べ る と いう 機能 を 持ち , SMC-777 の グラ フィ ックス 機能 を , こ の 価格 帯 の マシ ン と し て は 傑出 
し た も の と し て いま す . また だ , 777 BASIC の グラ フィ ックス 関係 の 命令 も 充実 し て お り , SMC- 
777 の グラ フィ ッ ク 機 能 を 十分 に 引き 出す こと が で きま す . 

本 章 で は ,. まず コン ピュ ー タ ・ グ ラフ ィ ッ クス 全般 の 動向 を 見 渡し た 後 , グラ フィ ックス の 基 
礎 。 777 BASIC の グラ フィ ッ ク 関 連 コ マン ド の 紹介 , カラ ー パ レッ ト ・ テ クニ ッ ク , グラ フィ ッ 
クス 上 級 編 へ と 進み , さら に ソニ ー か ら 発 売 さ れ て いる SMC グラ フィ ックス エディ ター(SMW 
-S001D ) の 紹介 と , これ で 作成 し た デー タ を BASIC プロ グラ ム で 有効 利用 し た 楽し い ゲ ー ム 
と , Naa。-BASIC か ら の 移植 テク ニッ ク の 紹介 を 行い ます . 


B-1 コン ビュ ー タ ・ グ ラフ ィ ッ クス の 役割 り 


人 間 と は 不思議 な 生き も の で , 身 に 備わっ た 五感 の うち で も , と り わ け 視 覚 に 依存 する 傾向 が 
ある よう で す . 見 る こと , それ は 人 間 に と っ て , も の ご と を 認識 する 上 で 最も て っ と り 早 い 手段 
で す . し か も , 視覚 に よっ て 認識 され た も の に 対し , 人 間 は さら に イメ ー ジ を 膨らませ , 思考 を 
始め る 手 惑 り と も し ます . つま り 見 る こと と は , 人 間 が 認知 行動 を 始め る た め の , 最初 の と っ か 
か り と w ゅ うわ は 9、 

人 間 と コン ピュ ー タ の 関係 に も , この 視覚 が 重要 な 役割 り を 果たし ます . な に し ろ マ ンマ シン ・ 
イン ター フェ イス に お ける 機械 か ら の メッ セー ジ の 出力 が ,。 ディス プレ イ な の で すか ら 当 然 の こ 
と で は あり ます (まァ , 音 で の 出力 も ある に は ある が …). 人 間 が 文字 を 整合 性 の ある 記号 と し て 
誰 識 し , また 描か れ た 絵 に 対し て も メッ セー ジ を 読み 取る 能力 が ある 以上 , 画像 出力 は 最も 強力 
な 情報 伝達 手段 で も ある わけ で す . 

非常 に 高速 で 計算 し , か つ 大 量 の デー タ を 蓄積 する こと の で きる コン ピュ ー タ に と っ て , 人 間 
の 認知 パタ ー ン か ら 考 える と, 視覚 に 訴え を る こと が 最も 効果 的 な メッ セー ジ 伝 達 手段 に な る わけ 
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で , 視覚 に 対し て どの よう に 情報 を 加工 し て や る か が , 重要 な ポイ ント と な っ て きま す . 

コン ピュ ー タ ・ グ ラフ ィ ッ クス は , この よう な デー タ ・ プ レ ゼ ン テ ー シ ョ ン に 際 し て 強力 な 起 
器 と な り ま す . た と えば 最近 の 0A で 顕著 な よう に , 数 値 デ ー タ を 視覚 的 に 処理 し た グラ フ で 見 
せ て や る よう な 場合 , メッ セー ジ の 受け 手 は 単に 数 字 を 羅列 され た と き に 比べ て , は る か に 効 
率 的 に デー タ を 認知 し ます . ここ で ひと つつ 気が付く の は , 同じ 数 値 デ ー タ が 基本 に な っ て いよ う 
と も , グラ フィ ッ ク 処 理 の 手際 の よし 悪し に より , 受け 手 の 認識 は 大 きく 変化 する と いう こと で 
す . だ か ら コ ンピュータ を 使っ て デー タ 処 理 (つま り , 何 か を する こと で す が ) を し て めく 場合 , 
効果 的 な グラ フィ ックス と いう の は 必要 不可 欠 の 技術 で ある と 考え て よい の で は な いで し ょ う 
か . 
一 方 で は , すでに CGC が 機械 を 使っ た お 絵描き の 試み の 域 に 留まら ず , 立派 な 芸術 の 域 に 近付い 
て いる こと も , 忘れ て は な ら な いで し ょ う . 過去 の あら ゆる 表現 媒体 と 比較 し て も , コン ピュ ー 
タ を 用 いて の グラ フィ ックス は その 表現 能力 に お いて , 記 色 な みい ど ころ か , それ ら を 淡 裾 きえ す 
る か も し れ な い 潜 在 力 を 秘め て いま す . 絵画 に し ろ 映 像 に し ろ , つき つめ て みれ ば 似 た よう な も 


いさ ^ い 


その 使い 勝手 の よさ か ら 考 えれ ば , より 広 功 な 人 々 に 表現 の チャ ンス を 与え て いる と 言え る で し 
2 
まァ , こう いっ た コン ピュ ー タ クタ ・ グ ラフ ィ ッ クス の 役割 り を 抜き に し て も ,。 パパ ソコ ン を 使っ て グ 
ラフ ィ ッ クス する の は , と て も 楽し いも の で す (みな さん 御存知 で し ょ う が ). し か も SMC-777 
は 映像 分 野 に 強い ソニ ー の 製品 らし く , グラ フィ ックス に 関し て 非常 に 豊富 を 機能 を 持っ て いま 
す . 標準 の モニ タ , KX-13CD 1 の 発色 の よさ と も あい まっ て (な に し ろ 表 現 力 に 富む アナ ログ 
RGB モニ タ な の で …), 777 の グラ フィ ックス に は , 他 機 種 と ひと 味 違 っ た お も し ろ さ が ある よう ぅ 
で す . な に は と も あれ , まず は 777 グ ラフ ィ ッ クス を お 試し くだ さい . 

次 の ,「 グ ラフ ィ ッ クス の 基礎 」 の 節 は 、 も し 理屈 は 好き じゃ な いと いう の な ら 飛 ば し て プロ グ 
ラミ ング に 入っ て いた だ いて も 結構 で すす. まず , プロ グラ ム を 打ち 込ん で グラ フィ ックス が 画面 
に 現れ る の を 見 て , し か る の ち 異 味 が 湧い て きた ら 少 し 勉強 し て みて くだ さい . 


5- の グラ フィ ックス の 基礎 
パソ コン で グラ フィ ックス を 行う 場合 基礎 知識 と し て , 
① 画面 構成 
(の キャ ラク タ 表 示 
⑧⑬③ グラ フィ ッ ク 表 示 


④ グラ フィ ッ ク 座 標 系 
⑥ 三角 関数 
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この 5 本 の 概念 が , グラ フィ ックス を 実践 する 上 で の 基礎 的 な 柱 と な り ま す . この 5 本 の 共 胡 
知識 は いずれ も 粘 構 難し いた め , 実際 の プロ グラ ミン グ を 通し て 覚え て ゆく こと が 望ま し いと 考 
る ます. で すか ら こ の 節 に お ける 説明 で は ご く 一 般 的 な し ベル の も の を マニ ュ ア ル 的 に 解説 し , 


読者 諸兄 が 技術 の 習 部 の 進展 に 合わ せ , 適宜 該当 項目 に 戻っ て こら れる よう に 構成 し ます . 


(1 ) 画面 構成 


SMC-777 に お いて は 3 つの 画面 を 重ね 合わ せ て , ひと つの 完成 され た 画面 を 作り 出し て いま 
す . これ ら の 画面 は , ボー ダー エリ ア , グラ フィ ックス 表示 面 , キャ ラク タ 表 示 面 と 呼ば れ て い 


ます . 


グラ フィ ックス 表示 面 


キャ ラク タ 表 示 面 
図 6-1 3 つの 画面 


画面 の 周辺 部 分 を 構成 し て いる ボー ダー エリ ア は , 文字 や 図形 を 表示 する こと は で きま せん が 
双 を 指定 する こと が 可能 な の で , 画面 全体 の 彩色 構成 に 重要 な 役割 り を 果たし , グラ フィ ックス 先 
成 時 の 画面 の よし 悪し を 左右 する 重要 な 部 分 で す . 

また , キャ ラク タ 表 示 面 は 文字 や 記号 を , グラ フィ ックス 表示 面 は 線 な ど を 表示 する 文字 ど お 
り の 役割 り を 果たし ます . こ の 2 つの 表示 面 は 。 画面 上 で は いか に も 同一 面 上 に 表示 され て いる よ 
うに 見 え を ます が , コン ピュ ー タ 内 部 で は , 別々 の 情報 と し て 扱わ れ て いま す . 

この 2 つの 表示 面 で は キャ ラク タ の 表示 面 に 優先 権 が あり , 文字 や 記号 の 上 に 線 が 重なる と い 
うこ と は あり ませ ん . 


(2 ) キャ ラク タ 表 示 


画面 上 に , キャ ラク タ (文字 , 記号 ) を 表示 する 役目 を 負っ て いる の は , キャ ラク タ RAM 
(CRAM), アト リ ビ ュ ー ト RAM (ARAM), プログラマブル ・ キ ャ ラク タ ジ ェ ネ レ ー タ (PCG) 


と 呼ば れる 3 つの 部 分 で す . 


ーー ラー モテ ミ 
ーー に キー ボー ド か ら 入 力 


[スク リー ン ア ドレ ス 
文字 や 記号 の コー ド 


文字 や 記号 の | 
アト リピ ビュート) 


図 602 キャ ラク タ 表 示 の し くみ 


まず , 表示 させ よう と する 文字 や 記号 は , 対応 する コン ピュ ー タ 内 部 の コー ド に 変換 され 
CRAM の 内 部 に 記憶 され ます . CRAM は , 画面 上 の 番地 と 1 対 1 で 対応 する 番地 を 持っ て いる ぇ 
の で , 文字 コー ド と 同時 に ,、 どこ に 表示 する か と いう 場所 の 情報 も 記憶 し て いま す . これ と 同時 
に , アト リ ビ ピュー ト , つま り 文 字 や 記号 の 属性 が ARAM に 記憶 され ます . これ は , 何 色 で 表示 す 
る か , 点 減 さ せる か , パック グラ ンド の 色 は どう する の か と いっ た 情報 を 取り 扱い ます . キー ポ 
ー ド か ら , これ ら の 文字 情報 が 入力 され た 場合 , CRAM, ARAM に 取り 込ま れ , 画面 に 表示 され 
る わけ で す が , 文字 や 記号 の コー ド は , その まま で は 画面 に 表示 で きま せん . この コー ド に 対応 
する 文字 や 記号 が , 実際 に どう いう 形 を し て いる の か を 記憶 し て いる の が PCG で す . CRAM か 
ら コ ー ド を 受け 取っ た PCG は , コー ド に 対応 し た 文字 や 形 の 情報 に ARAM の アト リ ビ ュ ー ト 靖 


報 を 付加 し て 画面 上 に 送り 出し ます . 
777 BASIC で は ,、 キャ ラク タ 表 示 面 の 表示 文字 数 を ソフ ト 上 の 操作 で 自由 に 変更 で きま す . 


第 1 バイ ト 
第 2 バイ ト 
第 3 バイ ト 
第 4 バイ ト 
第 5 バイ ト 
第 6 バイ ト 
第 7 バイ ト 
第 8 バイ ト 


画面 上 の 表示 キャ ラク タコ ー ド 65 の 図形 情報 


図 6<3 PCG の 図形 情報 と 面 画 上 の 表示 


6-2 グラ フィ ックス の 基礎 


CONSOLE と いう コマ ンド を 使う こと で , 80 字 メ X25 行 , 40 字 X25 行 の ふた つの モー ド を 使う こと 
が 可能 な の で す . 

( 3 ) グラ フィ ッ ク 表 示 

SMC-777 の グラ フィ ックス は , グラ フィ ッ ク RAM (CRAM) が 一 手 に 引き 受け て いま す . 
GRAM は , 画面 上 の 1 ドッ ト ず つの 位置 や 色 の 情報 を 持ち , 対応 する ドッ ト を 塗り つぶ し て ゆき 
ます . この 場合 の 表示 ドッ ト に は , 分 解 能 に 応じ て 2 つの モー ド 一 標準 モー ド と 高 分 解 能 モー 
ド ーー が 用 意 さ きれ て いま す . 標準 モー ド が 縦 200X 横 320 ド ッ ト (16 色 ) で ある の に 対し , 高 分 解 
能 モ ー ド の 方 は , 縦 200X 横 640 ド ッ ト (4 色 ) に より 構成 され て いま す . 


ANo 2 1 ドッ ト 


ドッ ト の 色情 報 


1 GRAM 1 バイ ト : 


2 首 っ ーー 標準 モー ド の 1 ドッ ト 


図 6-4 標準 モー ド と 高 分 解 モ ー ド 


標準 モー ド で は 1 ドッ ト を 16 色 で 表示 する た め , 4 ビッ ト の 情報 が 必要 な の で , GRAM の 1 バ 
イト は ドッ ト 2 個 分 の デー タ を 受け 持っ て いま す . 1 ドット の 色 は 4 ビッ ト か ら 成 り , 中 間 色 , 
赤 , 緑 , 青 の 色 の 組合 せ で 表示 し ます . また , 高 分 解 能 モー ド で は 1 ドット に 対し て 2 ビッ ト , 
つま り GRAM 1 バイ ト は 4 ドット 分 の デー タ を 受け 持っ て いま す . 

な お ボー ダー エリ ア の 色 指 定 は , 標準 モー ド と 同様 に 16 色 可能 で す . 


(4 ) グラ フィ ッ ク 座 標 系 


グラ フィ ックス 画面 に お ける 図形 の 表示 は , 画面 を 構成 する ドッ ト (画素 =pixcel) に 指定 の 色 
を 与え る こと で 行わ れ ま す . この ピク セル は 災 方 向 と 横 方 向 に 整然 と 配列 する こと に よ り 任意 の 
位置 に 配 する こと が で き , この 縦横 方 向 の 位置 決定 に 座標 の 概念 を 用 いま す . 
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座標 系 
空間 も し く は 平面 上 の 任意 の 位置 を 表す 数 字 の 組 を 座標 と 呼ん で いま す . 図 6 - 5 に 示す よう 


カル ト 座 標 ) と 言い ます . 直交 座標 で は , 点 P か ら X 軸 に 下 し た 垂 線 と X 軸 の 交点 の 値 を X 座 標 
Y 軸 に 下 し た 垂 線 と Y 軸 の 交点 の 値 を Y 座 標 と し て いま す . 座標 系 に は これ 以外 に , 3 決 元 の 直交 
座標 や 季 座 標 系 な を ども 用 いら れ ま す . 


Y 還 


図 6-5 直交 座標 


グラ フィ ッ ク 座 標 系 

SMC-777 の グラ フィ ックス 座標 系 は , BASIC モー ド で は 前 述 の 標準 モー ド と 高 分 解 能 モー ド 
に 分 か れ , 図 6- 6 の よう な 座標 系 た し て と ら え られ ます . 原点 (0 , 0) は 画面 左上 に あり , 右 
に X 軸 , 下 に Y 軸 が 伸び て いる も の と 考え られ , X が 0 一 319,Y が 0 一 199 ま で の 整数 の 組 で , 画 
面 上 の 任意 の 点 を 指定 可能 で す ( 高 分 解 能 モー ド で は , X メ = 0 一 639,Y= 0 一 199). この と き XX 座 
標 ,Y 座 標 の 値 が 上 記 の 画面 範囲 を 超え て し まう と , 表示 は 当然 の こと な が ら で き ませ ん . ブログ 
ラム に よっ て は あら か じ め , エ ラー 処理 で 危険 を 回 避 す る 必要 が 生じ て くる わけ で す (後に 詳し 
〈 説明 し ます ). 


X X 
0 一 一 一 一 一 ーーーーーーー を ヶ 319 0 639 
0 0 
Y W 
199 199 
標準 モー ド 高 分 解 能 モー ド 


図 606 グラ フィ ッ ク 座 標 系 
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絶対 座標 と 相対 座標 

原点 (0, 0 ) に 対し て 双 座 標 値 。 Y 座標 値 で 任意 の 位置 を 表す 直交 座標 の よう な 座標 系 で は , 
原点 を 基準 と し て 見 た と き の 任 意 の 座標 を 絶対 座標 と 呼ん を で いま す . これ に 対し , 基準 を 他 の も 
の に 置き 換え て 表現 する よう な 座標 系 を 相対 座標 と 呼び グラ フィ ックス に お いて は 何かと 重宝 
する 考え 方 と な り ま す . 

絶対 座標 は た と えて 言え ば , 自分 の 住所 を 何 町 の 何 丁目 何 番地 と , あら か じ め 決 め ら れ て いる 
絶対 値 で 表現 する よう な も の . これ に 対し て 相対 座標 は . オレ の 家 は 角 の 煙草 屋 か ら 5 軒 目 だ , 
と いう よう に , 任意 の 基準 を 定め た 上 で 表現 する 方 法 で す . 図 6 - 7 で 示す よう に , 点 B が 常に 点 
A (200, 100) の 位置 か ら X 軸 方 向 に アプ ラス 50 ド ッ ト 分 , Y 軸 方 向 に プラ ス 50 ド ッ ト 分 移動 し た 場 
所 に ある よう 定め た い 場 合 , 点 A を 基準 点 と し た 相対 座標 系 を 作り , 点 B を (50,50) で 表現 する 
方 が , 絶対 座標 に お ける (250, 150) と いう 表現 より も は る か に 便利 な も の と な り ま す (777 
BASIC の グラ フィ ックス ・ コ マン ド に は , この 相対 座標 系 の コマ ンド が 用 意 さ れ て いま す . 後述 ). 


0 319 


: 50 


199 (319 , 199) 


図 6-7 相対 座標 


(5 ) 三角 関数 


三角 関数 、 と 開い て 顔 を し か め る 方 も いら っ し ゃ る だ ろう と 思い ます . 777 BASIC で は , 三角 
関数 を 知ら な く と も 、 円 な を ど は パラ メー タ を 指定 する こと で , 簡単 に 描画 で きま す が , 円 周 上 に 
キャ ラク タ を 表示 し た り , 特殊 な 曲線 を 描い た り , と いっ た 仕事 を させ る と き に は , サイ ン , コ 
サイ ン 等 で 位置 を 計算 する 必要 が 生じ て きま す . 初心 者 の 方 が 三角 関数 が ら み の プロ グラ ム を 作 
ろう と する と き , 通常 定型 的 な アル ゴリ ズム が 数 多く の パソ コン の プロ グラ ム に も 見 られ ます の 
で , あちこち の プロ グラ ム 例 か ら 見 つけ 出し て , 習作 し , 自分 な り に 変更 し た り 修正 し た り し て 
身 に 付け て ゆく こと が 早道 で し ょ う . で は , 以下 に 簡単 な 三角 関数 の あら まし を 説明 し まし ょ う . 

三角 関数 の 定義 は 図 6-8 に 示す よ うに , 円 周 上 の 点 P と 円 の 中 心 0 と を 結ん だ 線 分 と , 点 P か ら X 
軸 に 下 し た 垂 線 の 交 点 と 原点 O を 結ん だ 線 分 と に よっ て 成立 する 三角 形 に お いて , sin の 9 ニ PA/ 
OP, cos の =OA/OP, tan の =PA/OA と な り ま す . 円 の 半径 を 1 と し て 考え た 場合 , sin の , cos の の 
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値 は ,。 それ ぞ れ PA, 0A の 長 さ と な り ま す . また の は 角度 を 表し ます か ら , 度 あ る い は 弧 度 と し て 
扱わ ね ば な り ま せん が , コン ピュ ー タ で 角度 を 扱う と き は , 一 般 的 に は 各 度 法 を 用 いま す . 弥 度 
法 の 単位 ラジ アン は ァ を 使っ た 角度 の 表現 法 で , 度 を 弧 度 に 変換 する に は , ァ ヶ 三 180* に より , 弧 度 = 
度 メ ァ /180 で 得 ら れ ま す . 三角 関数 は CC に と っ て 重要 な 意味 を 持つ た め , 必要 に 応じ て 数 学 関係 


の 書籍 の 参照 が 望ま れ ま す . 


図 6-8 三角 関数 の 定義 


6-3 グラ フィ ックス 関連 コマ ンド 


いよ いよ SMC-777 で 実際 に グラ フィ ックス を 行う こと に し ます . この 節 で は , グラ フィ ックス 
に 用 いる 各種 の コマ ンド の 機能 を 解説 し それ に 見 合っ た 短い プロ グラ ム を 試し て みる こと で , 
コマ ンド に 対す る 理解 を 深め る と と も に , グラ フィ ックス 技術 の 向上 を 目指 し ます . 最初 に グ 
ラフ ィ ッ クス の 基本 の その また 基本 で ある , 画面 クリ ア , 条件 設定 , 表示 等 の コマ ンド の 大 筋 を 
説明 し て お きま し ょ う ( 表 6 - 1). 

画面 クリ ア は ビデ オォ RAM の 内 容 を クリ ア す る 命令 で , 新た に 図形 を 描く と き , 以前 に 描い た も 
の を 消す た め に 用 いま す . 命令 に は 3 種類 あっ て , テキ スト を クリ ア す る CCLEAR, グラ フィ ッ 
クス を クリ ア す る GCLEAR,。 そ し て グラ フィ ックス と キャ ラク タ を 共に クリ ア し , か つ そ の 他 の 
設定 も 初期 化す る WIPE で す . 

条件 設定 は 図形 を 描く 前 に 必要 に 応じ て 行う も の で , た と えば 高 分 解 能 モー ド で 作画 し た いと 
き , GMODE で 分 解 能 を 変え る よう な 使い 方 が あり ます (標準 モー ド に 戻す 場合 も GMODE で 指 
定 ). この ほか に も , 座標 の 原点 を 変え る GLOCATE, 表示 命令 時 の グラ フィ ッ ク 表 示 色 を 変え 
る GCOLOR (ボー ダー エリ ア の 色 の 変更 も 含む ) 等 が 挙げ られ ます . 
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] 内 は 省略 可 


CCLEAR [B], [E] 
GCLEAR [C], [L] 


GMODE M, [T] 


GLOCATE (X,Y), [Xu], [Yu] 


GCOLOR[F], [BG], [B], [L] 


GPLOT (X, Y), [C], [L] 
LINE (Xi, Yi) 一 (Xz, Y2),[C],[L] 


BOXE (Xi,Yi) 一 (Xz, Y2),[C],[L] 
BOXF (Xi,Yj) 一 (X2, Y2), [C], [L] 


CIRCLE (X,Y),RX,RY, [C], [L] 


PAINT (X,Y), [Ci], [Cz] 


GGET (Xi,Yi) 一 (Xz, Y2),A% (0) 


GPUT (Xi, Yi) (Xz, Y2),A9% (0), 
[L], [T] 


DRAW < サ プ コ マン ド 列 > 
GPOINT (X,Y) 


GPOSX 


GPOSY 
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テキ スト 画面 , グラ フィ ックス 画面 を クリ ア す る 
テキ スト 画面 を クリ ア す る 
B : 消去 開始 行 , E : 消去 行 数 
C,L で 決定 され る 色 に 画面 を クリ ア す る 
C : カラ ー コ ー ド , L : 論理 演算 コー ド 
分 解 能 の 設定 を する 
M : M=1 標準 モー ド , M ニ 2 高 分 解 能 モー ド 
T : 表示 カラ ー タ イプ (M=2 の 時 の み 指 定 ) 
座標 原点 を (X,Y) に 移動 する 
Xu : X 軸 の 方 向 を 指定 , Yu : Y 軸 の 方 向 を 指定 
表示 カラ ー の 指定 の デフ ォ ル ト 値 を 与え る 
F : 表示 カラ ー コ ー ド 
: バッ ク グ ラウ ンド カラ ー コ ー ド 
: ボー ダー エリ アカ ラー コー ド 
・ 論理 演算 コー ド 
(X, Y) 座 標 に C, L で 決定 され る 色 の 点 を 打つ 
(Xi, Yi), (X, Yz) の 間 を C, L で 決定 され る 点 で 直線 補 
間 す る 
C, L で 決定 され る 色 の 箱 を 描く 
(Xi, Yi), (X, Y2) は 描こ う と する 箱 の 対 角 の 座標 
C, L で 決定 され る 色 の 箱 を 描き な か を 塗り つぶ す 
(Xi, Yi), (X2,Y2) は BOXE の と き と 同 じ 意 味 
C, L で 決定 され る 色 の 円 を 描く 
(X, Y) : 円 の 中 心 座標 
RX : X 方 向 の 半径 , RY : Y 方 向 の 半径 
(RX, RY の うち どちら か 一 方 は 省略 で きる ) 
指定 し た 座標 (X, Y) を 含み , Cz で 示さ れる 色 を 境界 色 
と し て , その な か を Ci で 示さ れる 色 に 塗り つぶ す 
(X, Yi), (X2, Yz) を 対 角 と する 範囲 の 画面 の デー タ を 
配列 A9% に 取り 込む 
GPUT で 取り 込ま れ た デー タ を (Xi, Yi), (Xz, Y2) の 範 
囲 に 表示 する 
T : 透明 色 コ ー ド 
サ プ コ マン ド 列 の 指示 に 従い , 図形 を 描く 
グラ フィ ッ ク 表 示 面 の (X,Y) 座標 の カラ ー コ ー ド を 
返す 
グラ フィ ッ ク コ マン ド て で 指定 し た 最終 指定 座標 又は , 
DRAW の 現地 点 の 座標 の X 座 標 を 返す 
GPOSX と 同様 に Y 座 標 の 値 を 返す 


表 6-1 グラ フィ ックス ・ コ マン ド 
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表示 は , 実際 に 座標 を 指定 し て 点 や 線 を 表示 する た め の 命令 で す . この な か に は , 点 を 打つ た 
め の GPLOT、 線 を 引く LINE, 箱 を 線 描 す る BOXE, 箱 を 描き か つ 内 部 を 塗り つぶ す BOXF, 円 
を 描く CIRCLE, 境界 色 の 範囲 内 を 塗り つぶ す PAINT が あり , これ ら を 組み 合わ せ て 使う こと に 
より , 自由 な 描画 が 可能 と な る わけ で す . 

これ ら の は ほか に , 画面 上 の ドッ ト の カラ ー コ ー ド を その まま 配列 変数 に 読み 書き する GGET, 
GPUT や ,。 グ ラフ ィ ッ クス 関係 の 関数 と し て GPOINT,、GPOSX,GPOSY な ど が あり ます . さ 
ら に SMC-777 に は DRAW と 呼ば れる ター トル ・ グ ラフ ィ ッ クス 機能 を 持つ コマ ンド が あり , 豊富 
な サ プ コ マン ド 群 に より , 多彩 な グラ フィ ックス 処理 を 可能 と し て いま す . で は , 次 より 代表 的 
な コマ ンド を 用 い , 実際 に プロ グラ ム を 作っ て ゆき まし ょ う . 


( 1 ) GPLOT 


点 を 打つ 命令 で ある GPLOT は , 表示 コマ ンド 中 , 最も シン プル (と 言う より 原始 的 か も ) な 命令 
で あり , 他 の すべ て の 表示 コマ ンド は , この GPLOT を 用 いて 代替 する こと が 可能 で ある と 言え る 
ほど で す ( そ ん な アホ な 真似 を する 人 が 居る と は 思わ ん けど ー 一 ).、GPLOT は 4 つの パラ メー タ 
に よっ て , 任意 の 座標 (XY) に C( カ ラー コー ド )、L (論理 演算 コー ド ) で 決定 され る 点 を 打ち 
ます . この C, L は 省略 する こと が で き , その 場合 直前 に 実行 され た GCOLOR も し く は 初期 設定 に 
従い ます . 論理 演算 コー ド の 働き は , 1 が すでに 表示 され て いる カラ ー コ ー ド の NOT, 2 が す で 
に 表示 され て いる 色 と 指定 し た 色 と の AND, 同様 に 3 が OR、 4 が XOR と な っ て いま す . で すか 
ら 画 面 上 の (10, 10) が 赤く 表示 され て いる と き に , GPLOT (10、10), 1 , 3 と し た 場合 , 画面 
上 の (10, 10) に は 赤 の コー ド 4 (0100) と 青 の コ ー ド 1 (0001) の OR 式 が びと られ , 赤 紫 (コー ド 5 
(0101) ) が 表示 され ます . この C,L の 意味 は 。 ほ か の コマ ンド に お いて も 同じ に な り ま す . 

で は , 以下 に 挙げ る リス ト 6 - 1 を , 実際 に 入力 し て みて くだ さい . PLOT と 名 付け た よう に , こ 
の プロ グラ ム は , 順番 に 点 を 打っ て ゆく だ け の 簡単 な も の で す . 

40 行 , 50 行 に ある 二 生 の FOR-NEXT ル ー プ 中 の 1, ] と いう 変数 が , X 座 標 と Y 座 標 の 値 を 決 
定 し ます . 各 変 数 は , 0 か ら 200 ま で の 値 を と り ま す が , STEP 10 つま り , 10 ド ッ ト ず つ に えと \ 


List 6-1 


16 “-- PLOT -- 

26 DEF INT A-Z 

36 UIPE : CURSOR OFF 

48 FOR I=9 TO 299 STEP 19 
59 FOR J=9 TO 299 STEP 19 
69 GPLOT (J+69,1 ),2 

79 GPLOT (I+e9,J) ,19 

89 NEXT J 

26 NEXT 1 
199 GOTO 49 
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リス ト 6-1 の 実行 画面 


和 M oe ます . そし て , 60 行 , 70 行 の GPLOT が 画面 上 に 点 を 打ち ます が , 座標 値 の 
> J が それ ぞ れ 逆 に な っ て いる の で , 赤い 点 は 横 . つま り 叉 方 向 に , 青い 点 は 縦 。 つ まり Y 方 向 
に と 打 た れ , 決 々 と 重なっ て 前 に 打 た れ た 点 に と っ て 奉っ て いき ます . 
時 RON 任意 の 位置 に 任意 の 色 の 点 を 打つ こと が で きる の で , 使い 方 次 第 で は 
色々 な な きせ る と と が の きま 


(2 ) LINE 


LINE 文 に よる 命令 は 読ん で 字 の 如く 直線 を 受け 持っ て お り 、 グラ フィ ックス 処理 の な か で 最も 
頻繁 に 用 いる コマ ンド の ひと つ で し ょ う . LINE 命 令 は 、 直 線 の 始点 と 終点 の 座標 を 与え る 数 値 
(xi。 yi)。 (xs, yz) と , 直線 の 色 を 決定 する 2 つの 数 値 , C, し に よっ て 任意 の 2 点 間 に 指 定 色 
で 直線 を 引き ます . この と き (xi, yi) は 省略 する こと が で き そ の 場合 は 前 の グラ フィ ックス ・ 
マン ド で 指定 され た 最終 値 か , DRAW の 現地 点 が 与え られ ます . 試し に LINE 文 を 使っ た 多角 形 
プロ グラ ム を 実行 し て み ま し ょ う . リス ト 6 - 2 を 実行 し て くだ さい . 大 き さ と 頂点 の 数 を 与え る 
こと で , 三角 形 で あろ う が 何 で あろ う が , 任意 の 多角 形 が 得 ら れ ま す . また 頂点 の 数 が 20 を 超え 
る あたり か ら , 多角 形 は 限り な く 円 に 近付い て ゆき ます . つま り LINE 文 は 応用 次 第 で , 円 を 描 
く こ と に も 利用 で きる と いう こと で す . 

ここ で 注意 すべ き 点 は , 100 行 の LINE 一 (X1, Y1) と いう 命令 で す . LINE を 引く 《 た め の 始点 と 
な る 座標 が 省略 され て いま すね . LINE 文 で は 、 始点 座 標 が 省略 され る と , 直前 に 実行 され た 
GPLOT の 座標 や LINE 文 の 終点 座標 が 新た な LINE 文 の 始点 座標 と し て 自動 的 に 補完 され る 
の で , この プロ グラ ム の よう に 線 を 連続 し て 描く 場合 は 便利 で す . 

リス ト 6 - 3 に は , LINE 文 を 使っ て 円 形 に 線 を 描く プロ グラ ム を 紹介 し ます . ご く 単 純 な プロ グ 
ラム で す が , 全体 の 構成 は , 二 重 の FOR - NEXT ルー プ に 収め られ 外側 の FOR - NEXT で て 、 
21 個 の 円 を 描く カウ ント を と り , ラン ダム に 表示 位置 の 座標 を 決定 し ます . 777 BASIC の ラン ダ 
ム 文 に は , IRND と RND の 2 種類 が あり ,、 ここ で は IRND が 使わ れ ま す . 通常 .RND は 1 以下 
の 乱数 を 返し ます が , IRND は 指定 され た 引数 以下 の 整数 の 乱数 を 返し て きま す の で ,、 プロ グラ 
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ム 作 成 上 な に か と 便利 で す . 60 行 の FOR - NEXT を 見 て も わか る と お り , STEP 10 に より 、10 
度 間隔 で 36 本 の 線 で 円 を 構成 し 、 SIN, COS の 三角 関数 で LINE 文 の 終点 座標 と な る 円 周 上 の 座標 


ドコ 


を 計算 し ます . 円 周 上 の 座標 を 求め る 三角 関数 に よる 式 は 、 か な り 定 型 化し た アル ゴリ ズム な の 


で 覚え て お く 〈 と 何かと 役に立つ で し ょ う ). 


List 6-2 


凡人 0 ニニ 

29 MIPE 

39 GLOCATE (169,199 ) , 1 , -1 

49 INPUT "オオ キサ & チョ 9 テン / カス " "jiALN 
50  X=9 : Y=A※,78 

69 6GPLOT (X,Y),9.3 

79 FOR 1I=9 TO 369 STEP 369/N 

89 Y1=(A-J)\COS( IXPI/189 )*.78 
29 X1=(A-J)※SIN(T※PI/189 ) 

199 LINE -(X1.Y1 ) 

119 X=X1 : Y=Y1 

129 NEXT 


List 6-3 


19 “-- line demo - 一 

29 MIPE 

39 RANDOMIZE 

49 FOR J=9 TO 29 

59 X=29+IRND( 289 ) :Y=29 ェ +IRND( 169 ) 
69 FOR IT=9 TO 369 STEP 19 


79 TH=I*PI/189 

89 X1=X+20XCOS( TH ) 

29 Y1=Y+20XSIN(TH)*.8 

199 LINE(X,Y)-(X1.Y1 ) ,IRND(14 )+1 
119 NEXT I 

129 NEXT J 


オオ きり 9 & チョ ワラ ン ノ カス " ?169。7 


* End * 
"9v 


LINE で 多角 形 を 描く 線 を 使っ て 円 を 描く 
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( 3 ) BOXE, BOXF 


箱 を 描 


命令 


6-3 グラ フィ ックス 関連 コマ ンド 


に は 箱 の な か が 空 で 線 の み の BOXE (Box Empty) と , 箱 の 中 を 塗り つぶ す 


BOXEF (Box Full) の 2 種類 が あり ます . 使い 方 は どちら も 同じ で , 描こ うと する 箱 の 対 角 の 座 
標 を それ ぞ れ (xi, yi) (xz, y。) と し て 定め , 表示 色 を 決め る C, L を 与え ます . な お , この と 
き の (xi, yi) は 省略 可能 で , LINE 命令 で 行わ れる の と 同等 の 値 が 与え られ ます . 


(xi,yi) 


(xz.y2) 


図 6-9 箱 を 描く と き に 指定 する 点 


さて , リス ト 6 - 4 に 紹介 する 棒グラフ の プロ グラ ム は BOXF を 用 いた 実に 簡単 な も の で , グラ 


フ を 描き 易い よう に GLOCATE て 座標 を 変換 し て 画面 左下 を 原点 (0 , 


0 ) に 設定 し て いま す . 


えま す . 軸 方 向 は Xu と Yu に 、 それ ぞ れ 0 を 含む 整数 ( 正 ) を 与え た と き は 右 方 向 と 下方 向 , 整数 


( 負 ) を 与え を た と き に 左 方 向 と 上 方 向 に な り ま す . 
軸 方 向 を 上 方 向 に 指定 し て プロ グラ ム を 書い て いま す . 


テー テー 
トー トー 


で は 原点 を 画面 左下 (0、199) に 定め , Y 


この プロ グラ ム で は 。 BOXF の XX 座標 に 相当 する 部 分 。 つ ま り I と 1+14 に より ひと つの 棒 グ 


ン 


ーー ホ “ ウ ク " ラ フ 一 一 
UIPE 
CONSOLE 49 : CURSOR OFF 
GLOCATE (9,199) , 1 ,-1 
LTINE (9,9)-(399 , 9 ) 
LINE (9,9)-(9,159 ) 
FOR =1 TO 254 STEP 17 
CCODE = 1/17+1 
LI = IRND(159 ) 
BOXF( { ,9)-(1+14,LI ) ,CCODE 
NEXT 
LOCATE (19,4) 
PRINT "-- ホ "9 ク \ ラ フ --" 
EVAL INKEY$(1 ) 


jList 6-4 
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ーー が 9 が 52 ーー 


棒グラフ を 描く 


ラフ の 幅 (14 ド ッ ト ) が 決め られ ,IRND (150) に より 与え られ る Y 座 標 LI に より 棒グラフ の 高 
さき が 与 えら れ ま す . ここ で は 高 さき が ラン ダム に 設定 きれ て いま す が , これ を 与え られ た デー タ 
や キー ボー ド か ら の 入力 で 変化 させ れ ば , 立派 な ビジネ スグ ラフ だ っ て 人 簡単 に 書け る …… と いう 
こと に し て お きま し ょ う . 


(0 ,. 0) 一 一 と X 方 向 (319 , 0) 


普通 の グラ フィ ッ ク 座 標 系 


(0 , 199) (319 , 199) 


(0 , 199) (319 , 199) 


GLOCATE(0 , 199) , 1 , 一 1 を 実行 し た 座標 系 


Y 軸 の バラ メー タ に 負 の 数 
を 設定 し た の で 向き が 逆 に 
な る 


(0 , 0) - 一 一 一 * ヶ X 方 向 (319 , 0) 
普通 の 座標 系 で の (0 , 199) が 原点 に な る 


図 6-10 GLOCATE に よる 座標 系 の 変更 


6-3 グラ フィ ックス 関連 コマ ンド 


( 4 ) CIRCLE 


円 を 描く た め の コ マン ド , CIRCLE は , 円 の 中 心 座標 (X。Y) と , X 軸 方 向 の 半径 Rx。Y 軸 方 
向 の 半径 Ry に , 円 の 色 を 定め る C, L を 与え る こと で , 任意 の 位置 に , 指定 色 で 指定 の 大 き さ の 
円 を 描く 命令 で す . この と き 。 Rx も し く は Ry どちら か 片方 の 省略 が で き , そ の 場合 は 指定 軸 の 値 
を 半径 と し た 真 円 を 描き ます . 

リス ト 6 - 5 は 。 CIRCLE 文 を 用 いて まり ( 昔 な つ か し い マ リ で し て , ポール な ど と 呼ん で は いけ ま 
せ ぬ ) を 描く プロ グラ ム で , な か を 塗り つぶ す た め に PAINT 命令 を 併用 し まし た . この PAINT , 
梁 り つぶ し た い 枠 内 の 任意 の 座標 (X,Y) と 塗る 色 C」, 枠 の 色 (境界 色 ) C。 を 与え る こと で 機能 
し ます . Ci と は 省略 が 可能 で ,C」 を 省略 する と 表示 カラ ー コ ー ド に 従い , C。 を 省略 する と Ci に 
従い ます . 


List 6-5 


1 の 清和 王 AR 江 泊 ニニ 

29 UIPE 

39 GLOCATE (169,199 ) 

49 CIRCLE (9,9),199,,14 

59 PAINT (9,9),14,14 

69 FOR 1=199 TO 1 STEP -5 

9 CIRCLE (9,9),T,199※.78,1/5 
89 NEXT 

29 FOR 1=199 TO 1 STEP -S 

399 CIRCLE (9,9),199,I※.78,1/S 
119 NEXT 


まり を 措 く 


MARI プロ グラ ム で も , BOX で 登場 し た GLOCATE が 使わ れ ま す . この プロ グラ ム で は , 画 
面 一 杯 に 円 を 描く の で 原点 を 画面 の 中 心 に 持っ て き て 使い 易く し て いま す . ふた つの FOR 
ーNEXT ルー プ ' は , それ ぞ れ X 軸 方 向 が 縮む 椿 円 と Y 軸 方 向 が 縮む 椿 円 を 担当 し て いま す . こ 
こ で は , 椿 円 の 短 径 を 1 の 減少 に より 表し て いる の で , FOR-NEXT も 数 が 小さ く な っ て いく よ 
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うに 設定 し て いま す . これ を 行う の が STEP - 5 , つま り , 1 の 値 が 5 ずつ 減少 し て ゆく わけ で す . 
リス ト 6 - 6 も また , CIRCLE と PAINT を 用 いた プロ グラ ム 例 で す が , こち ら は 乱数 で 円 の 位 
赴 と 大 き さ 及 び PAINT 色 を ラン ダム に 決定 させ て 描画 し て ゆく も の で す . 


List 6-6 


109 “-- CIRCLE PAINT -- 

29 CURSOR OFF 

39 MIPE 

49 FOR 【=1 TO 409 

っ 9 X=IRND(319) : Y=IRND( 199 ) : R=IRND(89 ) : CCODE=1 
69 CIRCLE (X,Y),R,,CCODE 

79 NEXT 

89  MHILE 1 

29 X=IRND(319) : Y=IRND( 199) : CCODE=IRND( 14 )+2 
199 PAINT (X,Y) ,CCODE , 1 

119 UEND 


CIRCLE と PAINT に よる 模様 


(5 ) DRAW 


SMC-777 の グラ フィ ッ ク 機 能 の な か で 最も 特徴 的 を の が , この DRAW コマ ンド で し ょ う . 
DRAW コマ ンド は ター トル ・ グ ラフ ィ ッ クス の 機能 を 持ち も ,。 サ プ コ マン ド 列 の 指示 どおり に 図形 
を 描く も の で す . ター トル ・ グ ラフ ィ ッ クス と 言え ば , 本 書 の Logo の 章 で 詳し く 触れ て いま す が 
も と も と Logo や Pascal の グラ フィ ックス 手法 に 用 いら れ て きた も の で , BASIC に は 本 来 備 わ 
っ て は いな い 機 能 で す . ター トル ・ グ ラフ ィ ッ クス の 概念 は ( Logo の 章 と 重複 し ます が ), カメ 
(turtle) が 画面 上 を 動き 回 っ た と き , その 軌跡 を 描画 に 使 お うと いう も の で , 命令 の 基本 と な る 
の は カメ の 現在 位置 (相対 座標 ) に 対し て 位置 及び 角度 を 与 を ます . で すか ら 普 通 の BASIC の グ 
ラフ ィ ッ クス と は 大 幅 に 異な る も の で , ちょ っ と 頭 の 切り 換え を し て か ら , 以下 の 説明 に 目 を 通 
し て いた だ きた いと 考え ます . 

DRAW コマ ンド の 書式 は 。 DRAW< サ プ コ マン ド 列 > で , 表 6 - 2 に 一 覧 表 に し た サブ コマ ンド 
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6-3 グラ フィ ックス 関連 コマ ンド 
An で は 基準 の 座標 軸 (0') に 対す る 角度 を 指定 
An で は 現在 設定 され て いる 座標 軸 に 対す る 角度 を 指定 


X 
X n 
n は -32768 て 32767 の 整数 . 初期 設定 は A0 Y Y 
S Sn 線 を 描く と き の 1 単位 の ドッ ト 数 を 指定 
n は 1 て 640 の 整数 , 初期 設定 は S4 
C Cn 描く 線 の 色 を カラ ー コ ー ド て 指定 016 
n は 0 一 15 の 整数 . 初期 設定 は C7 
現地 点 を 含み ,。 か つ カ ラー コー ド nz の 色 の 境界 線 で 囲ま れ た | paint NE 
ピ / 
部 分 を ni の 色 で 塗り つぶ す 


口演 


) テ 日 の 計 帳 


に 
ーー 
ー 


漆 品 下さ ン と 亡 判 油 


カラ ー コ ー ド n 1 の 色 で 塗り つぶ され る 


画面 上 の 現地 点 に フラ グ ( 旗 ) を 立て る 
i は 1 ン 7 の 整数 , 」 を 省略 する と 1 と みな す 

初期 状態 で は (0 , 0) に 7 つの フラ グ が セッ ト さ れ て いる 
現地 点 か ら 絶対 座標 ( x , y ) の 位置 まで 線 を 引く 
x は 0<263, y は 0 て 199 の 整数 


(で 語 喜 


A コマ ンド て 角度 を 指定 し た 座標 系 で , x 方 向 , y 方向 へ そ 
れ ぞ れ h, v だ け は な れ た 地点 まで 線 を 引く 
h 。 v の 単位 は S コマ ンド で 指定 し た ドッ ト 数 


) テ V く HUHSS き なせ へ 叫 北 


に 
いこ コ 
ンー 


現地 点 か ら , A コマ ンド て 指定 し た 座標 系 で , それ ぞ れ 上 下 
左右 に n だ け 離 れ た 地点 まで 線 を 引く 

n の 単位 は S コマ ンド で 指定 し た ドッ ト 数 . n を 省略 する と 
1 と みな す 


現地 点 か ら , Fi コマ ンド で フラ グ を 立て た 点 まで 線 を 引く 
i 人 UP 


go to flag 


+ さ 剖 北 AS 編 べ の 半 古 装 注 


2 パーム い 


現地 点 と 。 A コマ ンド で 指定 し た 座標 系 の X, 方 向 に それ 
ぞ れ h, v だ け 離 れ た 点 を 結ぶ 線 を 対角線 と する 四角 を 描く 
h, v の 単位 は S コマ ンド で 指定 し た ドッ ト 数 

BE で は 輪郭 線 の み . BF で は 中 を 塗り つぶ し た 四角 形 


box empty 


box full 


y 方 向 の r を 半径 と し , 現地 点 を 中 心 と し た 円 を 描く . 
向 の 値 は 自動 的 に 補正 され , 真 円 を 描く 
r の 単位 は S コマ ンド て で 指定 し た ドッ ト 数 


Circle 


ーV パ HIS きせ へ 壁 放 守 図 


必 ・ 


n に 続く サブ コマ ンド 列 を , n 回 繰り 返し て 実行 する 
字 


軸 音楽 演奏 サ プ コ マン ド へ 移行 . これ 以降 の 文字 列 は PLAY 文 の サ プ コ マン ド と し て 解釈 され る 
An。 Sn。Cn の 指定 を 省略 する と , それ まで の 名 設定 値 を 保持 する 


表 6-2 グラ フィ ッ ク サ プ コ マン ド 一 覧 


の 示す と お り を 実行 し ます .DRAW が Logo な どの ター トル ・ グ ラフ ィ ッ クス と 異な る の は , カメ 
の 現在 位置 で 座標 系 を 作り ,x、y で 与え られ る 位置 に 自由 に 移動 きせ る こと が 可能 で ある こと . 
また BOXE、BOXF, CIRCLE に 相 等 する BE, BF、O と いう サブ コマ ンド を 持ち , 一 般 に 使わ 
れる の と 同機 能 を 持た せ て いる の も , 少々 変っ た と ころ で す . いわ ば , Logo の ター トル ・ グ ラ 
フィ ックス の エッ セン ス を その まま に , BASIC の グラ フィ ックス ・ コ マン ド を 取り 込ん だ も の と 
考え て よい の で は な いで し ょ うか . 

さて , DRAW コマ ンド を 説明 し て ゆく に あたり , まず この コマ ンド を リアルタイム で 使う こと 
の で きる プロ グラ ム を 紹介 し て お きま し ょ う . Logo の ター トル ・ グ ラフ ィ ッ クス 同様 , 絶対 座標 
の 原点 を 画面 の ほぼ 中 央 に 定め る た め , GLOCATE で 座標 の 初期 設定 を 行い ます . この リス ト 6 - 
7 を 実行 する と, 画面 の 左上 に メッ セー ジ , SUB COMMAND ? が 表示 され , 入力 待ち の 状態 に 
な り ま す . 以下 、 こ の プロ グラ ム を 用 いて サブ コマ ンド を 説明 し て ゆき まし ょ う . 


List 6-7 


19 “-- learn drau 一 

29 MIPE 

39 GLOCATE( 169 , 199 ) , 1 , 1 

49  MHILE 1 

59 LOCATE(9,9) 

69 INPUT /L "SUB COMMAND ?2",N ま 

79 IF N$="Gclsar'" THEN GCLEAR ELSE DRAU N$ 
89 MEND 


最初 は 三角 形 を 描い て み ま す . DRAW の サブ プ コ マン ド は 実に 豊富 で , 三角 形 な どい 〈 く 通り に も 
描け る た め , 代表 的 な も の で 考え ます . まず は 絶対 座標 で 位置 を 示し て 描く 方 法 か ら . 


SUB COMMAND ? M40, 0 


これ は , M に 続く 40、 0 が 絶対 座標 を 表す も の で , M は 現在 地 か ら 指 定 の 絶対 座標 位置 まで 線 を 
引く 働き を 持っ て いま す . 画面 中 央 か ら 右 側 に か け て , 描線 され て いま すか ? 次 いで , 


SUB COHHRHD ? 面 9 9 


7 


サ プ コ マン ド で 「M40,0」,「M20, 一 5」,「M0,0」 を 
実行 し た 結果 
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M20, 一 35 
と 入力 し て 020S き MS で し CRO0e 
M0, 0 


三角 形 の 完成 で す . この よう に 絶対 座標 を 使っ て 描画 し て ゆく も の に 対し , Logo の ター トル ・ 
グラ フィ ックス と 同じ よう な 方 法 で 三角 形 を 描く 場合 は 


SUB COMMAND ? R10A120R10A240R10 


SUB COHMRHD ? 園 194129R1OR249R1B 


サ プ コ マン ド で 「R10A120R10A240R10」 を 
実行 し た 結果 


と な り ま す . ここ で 用 いた R は , カメ の 向き (X 方 向 , 初期 設定 で は 右向き ) に 指定 ドッ ト 分 線 を 

引く サ プ コ マン ド で ,。 この 場合 。 1 単位 の ドッ ト 数 を 定め る サ プ コ マン ド S の 初期 値 が 4 に る 

て いる た め ,R10 で 40 ド ッ ト 分 進み ます . また A の 方 は 基準 座標 値 に 対し て 角度 を 指定 する も の 

で , これ が A' に な る と, 今度 は カメ の 向き (現在 設定 され て いる 向き ) に 対す る 角度 を 変え る こ 
に な り ま す . で すか ら こ の 場合 , 最初 の A120 は A' で も カメ の 動き は 変り ませ ん が , 次 の A240 

の と き は 、A' を 用 いる な ら ば A'120 に な り ます. さら に , この 三角 形 の 描線 に 色 を 付け た いと き は , 

描線 色 指定 の サ プ コ マン ド C を 使い 、 さらに 全部 を くく っ て , 


SUB COMMAND?C4 <3 R10 A 120> 


と する こと も 可能 で す . ここ で は カメ の 方 向 を XX 方 向 と し て 考え て きま し た が , X の 逆 方 向 (L), 
Y 方 向 (U), Y の 逆 方 向 (D) の コマ ンド を 使う こと も で き , 90 度 単位 の 回 転 な ど に , 思う と お り 
に 線 を 伸ばせ る こと か ら 成 力 を 発揮 する こと で し ょ う . 

これ ら 以 外 に も 数 ある DRAW サ プ コ マン ドド は, みな それ な り の ポテ ン シ ャ ル を 持っ て いま す . 
片っ端 か ら リ スト 6 - 7 の COMMAND TEST で 機能 を 試し て みて , 応用 し て みる こと が 望ま し 
いと 思い ます (その た め に , わざ わざ この プロ グラ ム を 作っ た の で すか ら ! ). 

参考 の た め , リス ト 6 - 8 に クロ スス テッ チ を 描く プロ グラ ム を 例示 し ます . 一 見 し て わか る よ 
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List 6-8 


19 “-- Cross stitch 一 

29 MIPE : DRAM 'S2" : CO0=7 

39  GCOLOR ,,15 : GCLEAR 15 

49 PX=69 : PY=199 : ST=1 : GOSUB ※COLOR 
59 PX=189 : PY=199 : ST=1 : GOSUB xCOLOR 
69 END 

79 ※COLOR 

89 FOR ST=1 TO 3 

99 =4-ST 

199 C0=C0-3 :PC0=15-CO 

119 SUSUB ※DN 

129 NEXT 

139 RETURN 

149 “-- Line drau - 一 

159 ※L 

169 C=C+1 

179 IF A<>9 THEN GOTO ※P1 ELSE GOTO XP2 
189 *P1 

199  A=A-1 : GOSUB ※L 

299 DRAM "A"-99" : GOSUB ※L 

219 DRAU "A"99' : GOSUB ※L 

229 DRAU "A"99'" : GOSUB ※L 

239 DRAU "A"-99" : GOSUB し L 

249  A=A+1 

259 RETURN 


279 ※P2 
289 DRAM 'R(ST)* 
299 RETURN 


319 “-- Drau mainroutine 一 
329 ※XDM 

339 し =(3^A)xST 

349  X=PX-L : Y=PY+ し 

359 。 DRAM "m(X),(Y)A9C(CO) " 
369 FOR 1=1 TO 4 . 

379 GOSUB し 

389 DRAU '"A'99" 

399 NEXT 

499 DRAM "Aa45rSP( PCO ) , (CO ) “ 
419 RETURN 


クロ スス テッ チ を 描く 
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うに , プロ グラ ム の 大 半 が DRAW 系 の コマ ンド に よっ て で き て お り , DRAW コマ ンド が ほか の 
表示 コマ ンド の すべ て を サポ ー ト し て いる か ら こ そ , この よう な プロ グラ ム が 成立 する こと が 理 
解 で きめ ci 


( 6 ) その 他 の コマ ンド 


これ まで の 直線 や 円 を 描く こと で 作画 の 基盤 を な し た コマ ンド に 対し , GGET と GPUT と い 
う , ドッ ト の 情報 を 配列 に 読み 書き する コマ ンド を 紹介 し て み ま し ょ う . 

GGET (x」, y」) 一 (xz , yz) , A%( 0 ) は (x」 , yi)。 (x。 , y。) に よっ て 与え られ る 男 囲 の デ 
ー タ を , 整数 型 配列 A に 取り 込む コマ ンド で , GPUT は , その 配列 デー タ を 任意 の 場所 に 表示 
し ます (同じ よう に (x」 , y」), (x。 , yz) で 位置 を 指定 し ます ). この 2 つの コマ ンド を 用 いる こ 
と で 、 画面 上 の 任意 の パタ ー ン を 指定 の 座標 に コピ ー す る こと が 可能 と な り ま す . 使い 方 は , 
GGET, GPUT 双 方 と も , 範囲 を 決定 する 対 角 の 座標 (xi , yi)、 (xs ys) と , その 聞 囲 に 見 合っ 
た 大 き さ の 配列 (標準 モー ド で ドッ ト 数 の 1/4, 高 分 解 能 モー ド で ドッ ト 数 の 1/8) A%(0 ) を パ 
フ メ ー タ と し て 与え ます . (xi . yi) は 省略 が 可能 で , 前 の グラ フィ ックス コマ ンド で 指定 され た 最 
終値 か 、DRAW の 現在 地点 が 与え られ ます . また , GPUT に は 論理 演算 コー ド L と , 透明 色 コ 
ー ド 芽 を 指定 で き , 透明 色 コ ー ド に は 表示 し た く な い 色 の コー ド を 与え ます . 

リス ト 6 - 9 に GGET, GPUT を 使っ た プロ グラ ム 例 を 紹介 し ます . これ は 画面 上 の ふた つの パ 
ター ン を それ ぞ れ 配列 A%, B に 取り 込ん で , 同じ 位置 に 論理 演算 させ て 表示 する も の で す . 


論理 演算 な し (指定 の 色 を その まま 表示 ) 
すでに 表示 され て いる 色 の NOT 


(指定 され た 色 は 無視 され る ) 
AND 
OR 
XOR 


表 6-3 論理 演算 コー ド 


GGET, GPUT 文 を 使う と き は , さき に 説明 し た よう に 配列 変数 の 大 き さ を 宮 言 し て や ら な け 
れ ば いけ ませ ん . 配列 変数 を この 大 き さ で 取っ て くれ , と お 願い する コマ ンド が DIM で す . ここ 
で は , GGET 文 で 取り 込む 画面 の 座標 値 が 縦 86 ド ッ ト , 横 86 ド ッ ト な の で 


36X36 4 三 324 


と な り 324 個 の 配列 要素 が 心 要 な わけ で , 配列 の 添字 は 0 か ら 始 まり ます か ら , DIM A% (323) と 


じ G で おき 3 
この プロ グラ ム で は , GGET, GPDT 命令 の 使用 法 と 共に , カラ ー コ ー ド の 論理 演算 の 仕組 み 
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が ビジ ュ ア ル に 理 角 で きる よう に な っ て いま す . 実行 結果 の よう に , ふた つの 色 の 異な る 四角 形 
の 重複 部 分 の 色 の 違い が 一 目 で わか り ま す の で , 行 番号 40 と 60 の BOXF の カラ ー コ ー ド を 変え 
て 色々 試し て みる と お も し ろ い で し ょ う ). 


List 6-9 


19 “-- get & put 一 

29 UIPE : CURSOR OFF 

39 DIM A(323 ) , B%( 323 ) 

49 BOXF(19,9 )-(25,35 ) , 3 

59  GGET (9,9)-(35, 35 ) , A%( 9 ) 

69 BOXF(49,19)-(75,25).,5 

79  GGET (49,9)-(75,35) ,B%( 9 ) 

89 PRINT (9,12)j "norm no and Or xor ':PRINT 
99 FOR 1I=9 TO 4 

199 GPUT( TX64 ,59 )-( Ix64+35, 85 ) , A%( 9 ) 
119 GPUT(IX64,59 )-( Ix64+35, 85 ) , B( 9 ) , 1 
129 NEXT 


湊 に GPUT に 穫 明 色 を 指定 し た と き の 例 を リス ト 6 - 10 に 示し ます . これ を 実行 する と 右上 の 
画面 の よう に な り ま す . 白く 塗り つぶ され た 円 を 100 行 で GGET し て , 140, 150 行 で 画面 の 上 の 
部 分 。 190、 200 行 で 下 の 部 分 を 描い て いる わけ で す . 白い 円 の 周り は 黒 で , 200 行 で は この 黒 が 
透明 色 に 指定 され て いま す . この よう に 透明 色 に 指定 され た 色 は , 文字 どおり 透明 と みな され て , 
その ドッ ト は 全く 描き る 込ま れ な い の で す . 


List 6-10 


29 “--tranSparen 七 colo ロ ーー 


49 MIPE : GMODE 1 
59 DEF INT A-Z 
69 DIM D(INT(41x41/4 ) ) 
79 GLOCATE( 169 ,199 ) , 1 , -1 
89 CIRCLE(9,9 ) , 29 
99 PAINT(9,8 ) 
199  GGET(-29 , 29 ) -( 29 , -29 ) , D(9 ) 
119 “ 
129 “put normal ly 
139 “ 
149 GPUT(-39,79 )-( 19,39 ) , D(9 ) 
159 GPUT(-19,79 )-(39,39 ) , D( 9 ) 
169 “ 
179 “put specifying tranSpaCent color 
189 “ 
199 GPUT(-39 , -39 )-( 19 , -79 ) , D( 9 ) 
289 GPUT(-19,-39 )-(39,-79 ) , D(6 ) , 9,9 
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リス ト 6-9 の 実行 結果 リス ト 6-10 の 実行 結果 


6-4 カラ ー バ レッ ト ・ テ クニ ッ ク 


標準 状態 の SMC-777 で は , カラ ー ジ ェ ネ レー タ に よっ て 定め られ た 16 色 の 表示 が 可能 で す . し 
か し , この 777 に オプ ショ ン の カラ ー パ レッ ト ポ ボー ド (SMI-733) を 装着 する こと で , RGB 各色 に 
対し て 16 段 階 の う ち 任 意 の 色調 を 設定 で きる こと か ら , 16 の 3 乗 で 都合 4096 種 類 ( ! ) の 色 を 出す 
こと が で きる よう に な り ま す . も ちろ ん 一 度 に 表示 で きる 色 は 16 色 まで で すか ら , 4096 色 の うち 
任意 の 16 色 を 選ん で 作画 する こと に な り ま す . し か し これ だ け 選 択 肢 が 広く な る と 、 同 系 色 を 送 
ぶ こ と で 図形 に 微妙 な 陰影 を 付け て 立体 感 を 写 を る こと が で き , 二 湊 元 上 で 立体 的 な 作画 を する 
上 で の この 上 な い 武 器 と な り ま す . また , パパ レット に よる 色 指 定 の 切換 え が 明 時 に 実行 され る こ 
と か ら , 見 か け 上 の 動画 を 作る こと すら 可能 と な り ま す . も と も と SMC-777 は グフ フィ ックス に 
強い マシ ン で , 前節 で 紹介 し た グラ フィ ックス ・ コ マン ド の 充実 ぶり に その 一 端 を 知る こと が で き 
る の で す が , この カラ ー パ レッ ト を 戦列 に 加え る こと で , 一 層 の 機能 充実 が 望め ます . 本 了 は , 
この パレ ッ ト の テク ニッ ク を 中 心 に グラ フィ ックス を 試み ます . 


( 1 ) カラ ー パ レッ ト の 基本 


SMC-777 の BASIC で は , カラ ー パ レッ ト に よっ て カラ ー コ ー ド に 任意 の 色 を 定義 する た め , 
DEF PALETTE 命令 を 用 いま す . この 命令 は , 


DEF PALETTE C, R, G, B 


の 書式 で 使わ れる も の で , 変数 C に は 定義 色 の カラ ー コ ー ド を 与え , 以下 の RGB それ ぞ れ に , 任 
意 の カラ ー コ ー ド で 表現 し た い 色 を 作る た め の , 赤 , 緑 、 青 の 輝度 を 与え を ます. カラ ー コ ー ド は 
0 一 15 で 指定 され , また RGB に は それ ぞ れ 0 一 15 の 数 値 が 与え られ , この と き , 値 が 大 きく な る 
ほど 輝 度 は 高く な り ま す . た と えば カラ ー コ ー ド 0 に 青 を 定義 し た いと き は , 


DEF PAEETIEI0OA0 天 0 語 U5 
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た 、 グラ デー ショ ン を 積極 的 に 活用 し た も の と 言え る で し ょ う . 前 者 が 同系 色 の み で の グラ デー 
ショ ン で あっ た の に 対し , 後者 は 異な る 色 を グラ デー ショ ン に よっ て つない で 見 せる と ころ に 特 
徴 が あり ます . 

決 に , グラ デー ショ ン の 特性 を 利用 し て , 図形 に 影 を 与え て 立体 感 を 出す 方 法 を 考え て み ま す . 
リス ト 6 - 14 が その 例 で , 普通 用 いら れる 立体 図形 の 手法 で ある 透視 図 ( ワ フイ ヤー フレ ー ム に よる ) 
で は な く 、 曲面 を 持つ も の に 対し 陰影 を 付け て 立体 感 を か も し 出 そ も うと し た も の で す . プロ グラ 
ム の 構成 は 、 行 番号 20 一 80 が 初期 設定 , 100 一 200 が 円 柱 , 220 一 300 が 球 ,。 そし て 320 一 390 が 円 す 
い を 描く プロ グラ ム に な っ て お り , 非常 に 簡単 な 手順 で 立体 感 を 生ん で いま す . 


List 6-14 


19 “-- 3D-DEMONSTRATION -- 
29 CONSOLE 49 : CURSOR OFF 

39 MIPE 

49 FOR I=9 TO 15 

59 DEF PALETTE [1,9,1,15 

69 NEXT 

79  GCLEAR 9 

89 RAD=PI/189 

99 ” -- エン チュ 9 一 一 

199 K1=49 : L1=59 : R1=39 : R2=27.5 : K2=169 : し 2=79 : R3=19 : R4=9 
119 C=-1 

129 FOR 1I=9 TO 179 

139 X1=P2*SIN( I\RAD )+K1 : X2=R4xSIN( 1xRAD ) +K2 
149 Y1=L1-R1xCUS( ITxRAD ) : Y2=L2-R3xCOS( I RAD ) 
159 IF I>99 THEN IF ({I MOD 6)=9 THEN C=C-1 

169 IF 1<=99 THEN IF (1 MOD 6)=9 THEN C=C+1 
179 LINE(X2,Y2)-(X1,Y1),C,9 

189 NEXT I 

199 CIRCLE (K1,L1 ) ,R2,R1,1 

299 PAINT (K1,L1),1,1 

219 " -- キュ 9 - 一 

229  R1=29 : UMX=279 : MY=59 : ヒ =-1 

239 FOR 1=-99 TO 89 

249 IF I<9 THEN C=9 

259 IF I<=99 THEN IF ([I MOD 6)=9 THEN C=C+1 
269 7Z=INT(SIN( IxRADU ) xR1+ 5) : Z9=COS( 1 RAD ) XR1 
2709 71=SIN(39XRAD )*x7Z9 : Z2=COS(39XRAD ) xZ9 

289 CIRCLE(MX+Z,MY) ,Z1.Z2,C,9 

299 PAINT (MX+Z,MY) ,C,C 

399 NEXT I 

319 " 一 - エン スイ ーー 

329  C=9 

339 FOR 1I=99 TO 269 

340 IF I>129 THEN IF (1I MOD 6)=9 THEN C=Cー1 
359 IF [1 く <=129 THEN IF ({I MOD 2)=9 THEN C=C+1 
369 IF I>219 THEN IF (I MOD 6)=9 THEN C= の 9 
379 X=SIN( IXRAD )*39 : Y=COS( 1IxKAD ) x3 
3809 LINE (299,196)-(299+X,156-Y ) ,C,9 
399 NEXT 
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直感 に よる 立体 図 計算 に よる 立体 図 


この リス ト 6 -14 の よう な プロ グラ ム で は , 影 を どう 付け た ら 立 体感 を 得 ら れる か , と いう 問題 
に , 直感 的 に この 程度 だ ろう と 判断 し , 半ば 試行 錯誤 的 に プロ グラ ム を 修正 し て いっ て 立体 感 を 
出す よう 工夫 する と いっ た 方 法 で す . も ちろ ん こう し た 直感 に 頼る (あと の 修正 が 面倒 だ が ) 方 
法 で も 何と か な り は する の で す が , し か し 数 学 的 な 整合 性 を 持っ て 陰影 の あり 方 を 考え , 論理 的 
に 立体 感 を 得 た 方 が は る か に 上 策 で ある こと は 論 を 待ち ませ ん . 

陰影 を 付け る , つま り 面 処理 に よる 立体 図形 (ソリ ッ ド モデ ル ) は , 最 先端 の CG( コ ン ピ ュ ー 
タ ・ グ ラフ ィ ッ クス ) で よく 用 いら れる 手法 で す が , 計算 に 非常 に 時 間 が か か り , 8 ビット の マイ 
コン で は ちょ っ と オー バー ワー ク の 傾向 が あり ます が , ここ で は , 比較 的 簡単 な 球体 の ソリ ッ ド 
モデ ル を 紹介 し て お きま し ょ う . 

リス ト 6 -15 に 紹介 する の が , そう し た 論理 的 な 手法 の 実践 例 で す . この プロ グラ ム を 実行 し て , 
描く 球 の 画面 縦 方 向 の 半径 と 光源 の 位置 と を 入力 する と , 指定 し た 球 を 100 個 GPUT で 描き ま 
す . 光源 の 位置 の 指定 は 図 6 - 11 の よ う に 2 つの 角度 あと 9 で 行い ます . 


図 6-11 光 源 の 方 向 の 指定 
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List 6 -15 


19 “ーー サイ サン ニ ヨル キュ 9 一 一 

29 UIPE 

39 CONSOLE 89 

49 DEF FNRAD(DEG%)=PIxDEGz/189 

59 INPUT "ys"2 ホネ 9 コ 9 / ハン サイ "jiR 

69  RX=INT(Rx1 .25)+1 

79 INPUT " コ 97 ン / イチ ヲ ニュ 9 リョ ク ラテ クタ "サイ ( phi , モ heta ) " ,PHI 。THETA 
89  LX=COS(FNRAD( PHI ) )*SIN(FNRAD( THETA ) ) 

99  LY=SIN(FNRAD( PHI ) )*XSIN(FNRAD(THETA ) ) 

199  LZ=-COS(FNRAD(THETA ) ) 

119 CUNSOLE 49 

129 PRINT (5,12), "Nou computing. Please wai セ ." 
139 PRINT (9,17?):SPACE$(R※2-1 )j "goa1 " 

149 LOCATE(9,17) 

159 DIM PD%(INT((RX※2-1 )x(RX2-1 )/4 ) ) 

169 FOR 7Z=-R+1 TO R-1 

179 X1=SQR( RXR-7Z※Z ) 

189 Y1=INT(X1x1 .25 ) 

199 FOR Y2=-Y1 TO Y1 


200 Y3=Y2/1 .25 

219 X2=SQR(X1*X1-Y3※Y3 ) 

229 CL=( X2XLX+Y3XLY+ZXLZ)/Rx14 

230 IF CL く <9 THEN CL=1 ELSE CL=CL+1 

249 P%=( 7+R-1 )※(RX※2ー1 )+Y2+RXー1 

259 PD%(P%\4 )=PD%(P%\4) OR CADR(CINT(CL)※(16^(P% MOD 4))) 
269 NEXT 

279 PRENIN 2 

289 NEXT 

229 CCLEAR 


399 FOR 1I=1 TO 15 

319 DEF PALETTE IL,9,9,1 

329 NEXT 

339 CURSOR OFF 

349 FOR I=1 TO 199 

359 X=IRND(321-RX*2) : Y=IRND( 29 1 KR※2 ) 
369 GPUT(X,Y )-(X+RXX2-2 ,Y+R%2-2 ) , PD%(9 ) , ,9 
379 NEXT 

389 EVAL INKEYS(1 ) 

329 CONSOLE 89 

499 END 


この プロ グラ ム の 計算 に 当たり , 最も 単純 に , 球 に は 平行 光線 が 当たる と し , それ ぞ れ の 点 の 
明る さ は , 光線 の 入射 角 の cos 9 に 比例 する と し て 計算 し て いま す . ベク トル A, B の 内 積 は , 


A・B ニ |AIIB| cos 9 (9 は A, B の な す 角 ) 
で すか ら , A, B の 内 積 を A, B の 絶対 値 の 積 で 割れ ば cos の が 求まる わけ で す . また , 
バー (X, Y, Z,), B ニ (X。, Y。。 Z。 ) 


92 の: どり 
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A・BーX,X。 十 YY。 十 ZZ。 


で ある こと も 思い 出し て くだ さい . 

と ころ で , この プロ グラ ム で は 一 度 画面 に 描い て か ら GGET し て GPUT する の で は な く , 始 
めか ら GPUT する 配列 の 内 容 を 作っ て いま す . 250 行 で GPUT する 配列 の 内 容 を 書き 込ん で い 
ます が , この 中 に CADR と いう 関数 が 出 て きま す . この 関数 は 符号 無し 2 進数 を 符号 付き 2 進数 
に 変え る も の で , 32768 一 65535 を 渡す と, 一 32768 一 1 を 返し ます . また 半径 10 の 球 の 計算 を す 
る に も 1 分 以上 か か り , 精神 衛生 上 の 配慮 か ら , ドッ ト を 1 行 分 計算 し 終る ご と に [>] を 表示 
し て , これ が goal の と ころ まで 達し た ら 計算 終了 で ある よう に し て あり ます . 

2 つの 球 が 重なっ た 部 分 を うま く 描 く た め に , 360 行 の GPUT に は 透明 色 が 指定 し て あり , ま 
た , 球 は 一 番 く 見 える る と ころ まで も 背景 と 同じ 色 で は な くし て あり ます . 


(3 ) 動画 


カラ ー パ レッ ト を 用 いて 色 の 指定 を 変 た 0 る と , すでに 表示 され て いる 色 が 瞬間 的 に 切り 換え られ 
ます . これ を 利用 し て , 表示 され て いる カラ ー コ ー ド に バッ ク グ ラウ ンド と 同じ 色 を 指定 し た り 、 
また 再び も と の 色 を 指定 する こと に より , 見 か け の 上 で の 動画 を 作る こと が で きま す . 

リス ト 6 -16 に 示す の が , カラ ー パ レッ ト の 切り 換え を 使っ て 回 転 を 見 せ か ける プロ グラ ム で 
す . この プロ グラ ム は , 8 つ に 分 割 し た 円 の それ ぞ れ の パー ト を 青 と 緑 に 塗り 分 け , 変 互 に 青 と 
緑 に 色 を 変化 させ る こと で あたかも 青色 の 部 分 が 回 転 し て いる よう に 見 せる 水車 で す . 

この プロ グラ ム の 主要 な 部 分 は , 行 番号 200 か ら 250 の 間 で す . 160 行 で , 青 と 緑 を 塗り 分 け て い 
ます が , ここ で 青 と 縁 の カラ ー コ ー ド を 1 と 2 に 設定 し て いま す . 


(1 MOD 2)+1 


MOD と いう の は , 整数 剰余 , つ まり 割り 算 の 余り を 返す 関数 で す . ここ で は , ! に は 偶数 か 奇 
数 が 代入 され る の で ,。 それ を 2 で 割っ た 余り に 1 を 足し た 数 , つま り 1 か 2 が 得 ら れ ま す . 次 に 、 
220 行 。 230 行 の , 


(( | 填 1) MOD 2) 寺 1, 0, 15, 0 
(1MOD 2) 十 1, 0, 0, 15 


に より , 青 を 緑 に , 緑 を 青 に 交互 に 切り 換え を 行い ます . ここ で は , (1 ) と 1 を 2 で 割っ た 余 
り に 1 を 足す こと で , 偶 奇 数 に よる 1 と 2 が 交互 に 入れ 替わる わけ で す . また , 240 行 の PAUSE 
に よる タイ マー の 数 字 を 操作 する こと で , 水車 の 回 転 ス ピー ド を 自由 に 変化 させ る こと が で きま 
す . まァ , 見 て いる 分 に は 何 の こ と は な い プ ログ ラム で す が , 動画 を 作る 上 で の 参考 に は な る と 
思い ます . 
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List 6-16 
1G “-- movement by pal et モモ te 一 
こう 9 。 MTIPE 
= こら CURSOR OFF 
49 FOR J=1 TO 3 
っ 9 X=J※199-59 : Y=Jx59 
69 (IRCEBERG が XN の jS05M( 
79 FOR 1=9 TO 369 STEP 45 


89 TH=IXPI/189 

29 X1=X+59*COS( TH ) 

199 Y1=Y+59XSIN(TH)x.8 
119 LINE(X,Y)-(X1.Y1 ) ,7 


129 NEXT 1 
139 FOR 1=1 TO 8 


149 X1=X+49XCOS(( TX45-5 ) xP 1 /189 ) 
159 Y1=Y+49XSIN(( ITx45-5)xP1I/189 )x.8 
169 PAINT(X1。Y1) (IT MOD 2)+1,? 

179 NEXT I 

189 NEXT J 

2 

299 UMHILE 1 

219 1=[+1 


220 DEF PALETTE ((1+1 ) MOD 2)+1 .9,15.9 
239 DEF _ PALETTE ({I MOD 2)+1 .9,9,15 

249 PAUSE 5 

259 MEND 


( 4 ) 24 色 表示 


カラ ー パ レッ ト を 使っ て も , カラ ー コ ー ド は 0 -15 ま で し か あり ませ ん の で , 一 度 に 表示 可能 


な 色 は 16 色 どまり . し か し , カラ ー パ レッ ト の 色 を 使用 する か , カラ ー ジ ェ ネ レー タ の 色 を 使用 
する か の 切り 換え を , 図 6 - 12 に 示し た よう に 51H ポー ト に 出力 する デー タ で キャ ラク タ と グラ 
フィ ックス を 別々 に 行え る の で , た と えば キャ ラク タ を カラ ー ジ ェ ネ レー タ の 色 , グラ フィ ッ ク 
ス を カフ ー パ レット の 色 に 指定 し , カラ ー パ レッ ト に カラ ー ジ ェ ネ レー タ て で 決定 され て いる の と 
は 別 の 色 を 指定 する こと で , キャ ラク タ 8 色 + グ ラフ ィ ッ クス 16 色 の 合計 24 色 を 一 度 に 表示 で き 


バレット を 利用 し た 水車 24 色 表示 を 利用 し た 画面 
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6-4 カラ ー バ レッ ト ・ テ クニ ッ ク 


る よう に な り ま す . た だ し , カラ ー ジ ェ ネ レー タ で は 表示 され る 色 が 決っ て し まっ て いる た め 、 
24 色 の 全部 を 任意 の 色 と い うこ と は で きず ,。 カラ ー ジ ェ ネ レー タ で 決ま っ て いる 8 色 (キャ ラク 
タ ) 十 任意 の 16 色 (グラ フィ ックス ) と いう 方 法 か , また は カラ ー ジ ェ ネ レー タ て で 決っ て いる 16 色 
(グラ フィ ックス ) 十 任意 の 8 色 (キャ ラク タ ) と いう 組合 せ に な り ま す . し か し , た と えば グラ 
デー ショ ン で 描い て いる と き な ど に , 16 色 の 全部 を 同系 色 に 指定 し て し まっ て も , キャ フラ クタ を 
カラ ー ジ ェ ネ レー タ の 色 (グラ デー ショ ン に 用 いた の と は 別 系 統 の 色 ) で 表示 すれ ば , メッ セー 
ジ の 表示 な ど 非 常に 鮮明 に な り ま すし , キャ ラク タ を 上 手 く グラ フィ ックス に 組み 合わ せ て 使用 
すれ ば , より カラ フル な 図形 を 描く こと も 可能 で ある と 考え られ ます . 


51H ポート (書き 込み ) 


MSB LSB 
ビ ピッ ト No 74 6 5 4 3 2 1 0 


| 出力 端子 番号 


ガラ = ラ バレ ウト ] 1 1 | グラ フィ ッ ク 面 の 指定 


: カラ ー 
ジェ ネ レ ー タ 


図 6-12 カラ ー バ レット / カ ラー ジェ ネ レ ー タ の 切り 換え 


この 方 法 を 実際 に 使用 する と き は , 51H ポー ト に 適当 な デー タ を 出力 すれ ば よい わけ で すか 
ら , た と えば キャ ラク タ を カラ ー ジ ェ ネ レー タ の 色 で 表示 し た いと き は , BASIC の OUT 命令 で , 


OUT &H51, &H06 


を 実行 すれ ば 切り 換わり ます . し か し , こん な メン ドウ な こと を する まで も な く , 777 BASIC 
に は 上 記 に 対応 する コマ ンド が あり , CPALETTE と GPALETTE を 用 いる こと で も 同等 の 結 
果 と な り , 実行 方 法 は , 


CPALETTE ON : キ ャ ラク タ を カラ ー パ レッ ト の 色 で 表示 
CPALETTE OFF : キ ャ ラク タ を カラ ー ジ ェ ネ レー タ の 色 で 表示 
GPALETTE ON : グラフィ ックス を カラ ー パ レッ ト の 色 で 表示 
GPALETTE OFF : グラ フィ ックス を カラ ー ジ ェ ネ レー タ の 色 で 表示 


と 指定 し ます . これ は BASIC の マニ ュ ア ル に は (どう し た わけ だ か ) 記載 され て いな い 方 法 で す 
が 、BASIC を ディ ス ア セン プル し て みる と , 予約 語 と 中 間 コ ー ド の 対応 表 ら し きも の が 見 付か り 
ます し ,、 その な か に この 2 つの コマ ンド も 含ま れ て いて , いじくり 回 し て いる うち に 使い 方 が わ 
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か っ た と いう 湊 第 . 前 掲 の リス ト 6 -14 に この CPALETTE OFF を 組み 込ん で 、 メ ッ セ ー ジ を 表 
示 で きる よう に 加工 し た の が リス ト 6 -17 です. 24 色 と いう 既存 の 色 よ り 8 色 も 多い グラ フィ ッ ク 
ス は 、SMC-777 の グラ フィ ックス 機能 を より 高い も の に し て くれ る も の と 思い ます . 

パレ ッ ト を 用 いた グラ デー ショ ン や 動画 の 作画 は ,、 な に より パレ ッ ト の 機能 を 適 確 に 把握 し , 
あと は ひたすら 慣れ る こと , つま り 試 行 錯誤 が 上 達 の 早道 . ちな み に , SMC-777 の デモ も , パレ 
ッ ト を 使っ て 描い た も の で し た ……. 


List 6 -17 


19 “-- 3D-DEMONSTRATION -- 

29 CONSOLE 49 : CURSOR OFF 

39 MIPE 

35 CPALETTE OFF 

49 FOR I=9 TO 15 

59 DEF PALETTE 1,9,1I,15 

69 NEXT 

79  GCLEAR 9 

89 RAD=PI/189 

99 " -- エッ チュ 9 一 

95 CCOLOR 2 

26 PRINT (19,12)j "エン チュ 9" 

199 K1=49 : L1=59 : R1=39 : R2=27.5 : K2=169 : L2=7d : R3=19 : R4=9 
119 C=-1 

129 FOR I=9 TO 179 

139 X1=R2*SIN( IXRAD)+K1 : X2=RAxSIN( 1xRAD )+K2 
149 Y1=L1-R1*COS( ITxRAD ) : Y2=L2-R3xCO0S( I RAD ) 
159 IF I>99 THEN IF ({I MOD 6)=9 THEN C=C-1 
169 IF 1<=99 THEN IF (1I MOD 6)=9 THEN C=C+1 
179 LINE(X2,Y2)-(X1,Y1) ,C,9 

189 NEXT I 

199 CIRCLE (K1,L1),R2,R1 ,1 

299 PAINT (K1,L1),1,1 

219 " -- キュ 9 -- 

215 CCOLOR 4 

216 PRINT (32,19)j "キュ 9" 

229  R1=29 : MX=279 : UY=59 : C=-1 

239 FOR 1=-99 TO 89 

249 IF 1<9 THEN C=9 

259 IF 1<=99 THEN IF (1I MOD 6)=9 THEN C=C+1 
269 Z=INT(SIN( IxRAD )xR1+.5) : Z9=COS( 1 xRAD ) R1 
279 Z1=SIN(39xRAD )xZ9 : Z2=CDS(39xRAD ) *Z9 
289 CIRCLE(MX+Z,MY ) ,Z1,Z2,C,9 

299 PAINT (MX+Z,UY),C,C 

389 NEXT I 

319 " 一 - エン スイ - 一 

315 CCOLOR 6 

316 PRINT (24,21 ) 』 "エン ッ スイ“ 

329 C=9 
339 FOR 1I=99 TO 269 
349 IF I>129 THEN IF (1I MOD 6)=9 THEN C=C-1 
359 IF 1<=129 THEN IF (I MOD 6)=9 THEN C=C+1 
369 IF 1I>219 THEN IF (I MOD 6)=9 THEN C=9 
379 X=SIN( IxRAD )x39 : Y=COS( IxRAD ) x3 
389 LINE (299,199 )-(299+X, 156-Y ) ,C,9 
399 NEXT 
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5-5 グラ フィ ックス 上 級 編 


近年 の コン ピュ ー タ ・ グ ラフ ィ ッ クス (CG ) の 発達 に は 目 を 見 は ら せ る も の が あり ます . 馬 
真 と も 絵画 と も つか ぬ 微 妙 な 階 調 を 持っ た グラ フィ ックス で ある と か , 面 を 定義 し て 色 を 付け , 
べら 棒 な 時 間 を 費 し て 回 転 を きせ て みた り と か ーー 一 な か に は ソニ ー の ウォ ー ク マン の CF の 如 
く 〈,。 スーパ ー コ ンピュータ , CRAY- 1 を 使っ な グラ フィ ックス まで 登場 し て ,、 ま さ に 留まる と こ 
ろ を 知ら ぬ 勢 いで す . パソ コン の 分 野 に お ける グラ フィ ックス に し て も , か な り 程 度 の 


高い も の 


が ずい 分 と 出現 する よう に な っ て いま す . 計算 機 を まる で 知ら な い 人 で あれ ば , 超大 型 機 を 使っ 
た 3-D の 回 転 像 な ど に 仰天 し て , た か が パソ コン に 何 が で きる , な ど と ケチ を つけ た り も し ま 
す . が , すでに 御存知 の よう に, た と え ス ー パ ー・ コ ンピュータ を 駆使 し よう と , 精 客 な 画面 の 回 
転 や 着色 を リア ル タ イ ム で 行う な ど と て も 不可 能 . つま る と ころ , 解像度 と 少々 の 演算 加 度 の 巡 
さ に 頼っ て いる に すぎ ませ ん . 逆 に 言 を ば 777 グ ラフ ィ ッ クス で 基礎 を し っ か り 身 に 付け て お け 
ば , か な り 高度 な 応用 に も 無理 な く 移 行 で きる と いう こと で す (も ちろ ん , 当 人 の 支 力 と オ 能 が 
あっ て の 話 だ が ). まァ 大 風呂 敷 は この くら い に し て , 本 節 で は グラ フィ ックス で も 程度 が 高い と 
され て いる 3-D グ ラフ ィ ッ クス に 的 を 絞り , 線画 と 面 画 で これ を 試み て み ま し ょ う ). 

(1 ) 線画 に よる 3-D グ ラフ ィ ッ クス 


* 
\ 
\ 

\ 

! 


ング 
ング 22 に い 
三 点 透 視 
単 点 透視 
陰線 の 消去 影 を 付け る 


図 6-13 立体 感 の 表現 方 法 
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3 次 元 に 住む われ われ 人 間 の 常 と し て , 目 に 映る も の を 平面 に 表現 する と き に , 何と か 立体 的 
に 見 える よう 工夫 する も の で す . 試し に 幼児 に クレ ヨン と 画用紙 を 与え て みる と, 線画 か ら 着 色 
を や っ つけ て 、 最 後 は 遠近 感 を 出 そ も うと あれ これ や っ て みる は ず で す . 

立体 感 、 遠 近 感 を 表現 する と き , 通常 は 図 6 - 13 に 示す よう に , 影 を 付け て 立体 感 を 得 た り , 陰 
線 を 消去 し た り , また 秀 視 変換 で 遠近 感 を 出し て みた り し ます . コン ピュ ー タ を 用 いて 立体 作画 
を する 場合 も 、 こ の よう な 方 法 を 踏 租 し ます . し か し , 単に 紙 に 描く わけ で は な いた め , 作図 の 
た め の デ ー タ (座標 デー タ ) を 計算 で 変換 きせ る こと に より , 図形 を 移動 きせ た り 回 転 き させ て 表 
示す る こと に な り ま す . トロ ン に 代表 され る CG を 用 いた 映画 な ど で も この テク ニッ ク が 用 いら 
れ て いる わけ で , コン ピュ ー タ らし い 作 画 が で きる 部 分 で す . まァ , SMC -777 と CRAY- 1 に 同 
じ 仕 事 を させ る わけ に も いき ませ ん の で , ここ で は 基本 的 な と ころ を 扱っ て みる こと に し まし ょ 


List 6-18 


ク 有 2 三 ミ ミニ ニニ ニニ ミニ ミニ ニニ ニニ ニニ ニ 三 2D graphic paclkage ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニ 


49 MIPE : CONSOLE 89 : GLOCATE (169 ,199 ) , , -1 
59 DEF FNY(A1,B1 ,A2,B2,C)=B1+(B2-B1 )/(A2-A1 )※(CーA1 ) 


69  Q=.82 

79 “ 

89 "-- Data input 一 
99 “ 


199 INPUT "HOU MANY DATA "ijN 
119 FOR 1I=1 TO N 

120 PRINT "X' jj) & YY"ji1j 
139 INPUT '" "jX(1I),Y(1) 
149 .NEXT 1 


169 *-- Main -- 


189 GOSUB xDRAU_ 

199 UMHILE 1 

299 PRINT (9,.9) "イト "9 [中央 了 

219 PRINT "カイ テン [ 還 と 委 

229 BN X/ り ウ の ^ 3d" 

239 PRKENR ラ ュ 9 リョ の WE4J・ 

249 INPUT A 

259 ON A GOSUB *MOVE ,*ROTATE , XSCAL ING , 299 
269 GOSUB *DRAM_ 

279 .MEND 


299 MIPE 
399 END 


329 "-- Move - 一 


6-5 グラ フィ ックス 上 撤 編 


ーー fx+“ ゴ イィ .J. ィ 本 


MOVE 
INPUT "イト *9 ト " X & Y "jiTX,TY 
FOR 1=1 TO N 
X( 1 )=X( [ )+TX 
Y( 1 )=Y(I)+TY 
NEXT 
RETURN 


"ーー Ro モ ate 一 


※ROTATE 

INPUT カク ド Ro aahH 

TH=THxPI/189 

FOR 1=1 TO N 
X=X( 1 )xCOS( TH)-Y( 1 )*SIN(TH) 
Y=X( { )xSIN(TH)+Y( 1 )*COS( TH) 
X(1)=X : Y(I)=Y 

NEXT 

.RETURN 


"ーー Scal ing - 一 


%SCAL ING 
INPUT "E り y X & Y "5X,SY 
FOR =1 TO N 
X(1)=X(1)*SX 
Y(1)=Y(1)xSY 
NEXT 
_RETURN 


ジ 
ーー Drau ーー 
2 


*DRAU_ 

UIPE 

LINE(-169 , 9 )-(159 , 9 ) 

LINE て 9 , -199 )-(9 ,99 ) 

FOR エ =-159 TO 159 STEP 59 
LINE( 1 ,2)-(1,-2) 

NEXT 

FOR 1=-199 TO 196 STEP 59 
LINE(3, IQ)-(-3, ITxQ) 

NEXT 

FOR 1=1 TO N-1 
X1=X(T) : Y1=Y(I) : X2=X(1+1) : Y2=Y(1+1 ) 
GOSUB xCLIPPING 

NEXT 

X1=XCN) : Y1=Y(N) : X2=X(1) : Y2=Y(1) 

GOSUB CLIPPING 

_RETURN 


っ Clipping - 一 


※CLTIPPING 


X=X1 : Y=Y1 : GOSUB ※CHECK : C1=CU 
X=X2 : Y=Y2 : GOSUB ※CHECK : C2=CU 
.IF C1 AND C2 THEN RETURN 


UHILE (C1 OR C2) く >9 
IF C1 THEN C=C1 : F=1 ELSE C=C2 : F=9 


ーー ーー ボー ーーーーーーーーーーーーーーーーーーーー 


203 
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グラ フィ ックス の 世界 


239 IF (C AND 1)=9 THEN 979 


?49 X=159 : Y=FNY(X1」Y1」X2.Y2。X) 
959 C=C AND 14 

?269 - GOTO 1979 

?79 IF (C AND 2)=9 THEN 1919 

?89 X=-169 : Y=FNY(X1.Y1 XX2」Y2,X) 
299 C=C AND 13 

1990 GOTO 1979 

1019 IF (C ANH 4)=9@ THEN 1959 

1920 Y=99/0 : X=FNY(Y1JX1 、Y2,X2.Y) 
1930 C=C AND 11 

19409 GOTO 1979 

1G59 Y=-199/Q : X=FNY(Y1、X1.Y2.X2。Y ) 
1969 C=9 

1979 IF F THEN X1=X : Y1=Y : C1=C ELSE X2=X : Y2=Y 
1989 MEND 

19?0 LINE(X1.Y1%XQ)-(X2,Y2*Q),4 

4169 RETURN 


-126 CHECK 

1139 C/ ニ 2 

1149 IF X>152 THEN CV=1 

11GM 。 IF -16g9>X THEN CUV=CV+2 
1169 IF Y>29/ ロ THEN CV=CU+4 
1179 IF -199/Q>Y THEN CV=CUV+8 
1139 RETURKN 


C2=C 


リス ト 6- 18 を 見 て くだ さい . 2 次 元 の 図形 を 変換 きせ る プロ グラ ム で す . 画面 の ほぼ 中 央 を 原 
点 と し て , 画面 上 の 図形 を 様々 に 変換 し ます . 変換 の 種類 は , 


・ 平 行 移動 (サブ ルー チン * MOVE ) 
・ 回 転 (サブ ルー チン * ROTATE ) 
・ ス ケー リン グ ( サ プ ル ー チ ン * SCALING ) 


の 3 つが パッ ケー ジ で 用 意 き され て いま す . 次 に , 基本 図形 と し て 図 6 - 14 に 示す よう な 四角 形 を 用 
い , 変換 し て ゆく 手続 き を 説明 し て み ま し ょ う . 
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Y 


(一 10,10) 


(10.10) 


(10 ,-10) 


(10, 一 10) 


図 6-14 基本 図形 


プロ グラ ム を 実行 する と , デー タ の 数 を 問い か け て きま す . ここ で は 図 6 - 14 を 基本 図形 と する 
た め に 、 四隅 の 座標 デー タ が 必要 な た め , 4 を 入力 し て や り ます. 次 いで 各 座 標 の デー タ を 、 


X 1 &Y 1 ? 10, 一 10 
X 2&Y 2 ? 一 10, 一 10 
X 3 &Y 3 ? 一 10, 10 
X 4&Y 4 ? 10, 10 


と 与え 


こ に 号 え て や り , 実行 する こと で 図 6 - 14 と 同じ 図形 が 得 ら れ ま す . この と き , 画面 に は 変換 の メニ 


滞 273 
RA2 歯 貞 
ン J Mo ほ 2 食 
スケ ゲー リシン グ 人 5 
の ェ ッ リョ 4 交 別 


と 表示 され ます の で , まず は 1 を 入力 し て 平行 移動 か ら 実 行 し て み ま し ょ う . 平行 移動 は 図 6 - 15 
に 示す よう に 点 P (x、y) を P' (x'。y) に 移動 きせ る 手続 き で , 


図 6-15 平行 移動 


基本 図形 の 表示 


6 童 グラ フィ ックス の 世界 


X ニ x 十 T、 
式 1 


y = テ y 二 T、 


に より 得 ら れ ま す . この プロ グラ ム で は xy の 移動 量 を 聞い て きま すか ら , た と えば 10,10 を 入 
カ し て や る と , サブ ルー チン * MOVE で 式 1 の 手続 き が 四隅 の デー タ に 各々 施さ れ , 該当 座標 ま 
で 移動 きせ て 表示 し ます . 次 に 行う の は 2 の 回 転 。 これ を 得る に は 。, 


Xーcos の Xx 一 sin の Xy 
式 2 


y sin 9 X x 十 cos9 Xy 


の 式 で 表 き れ 、 図 6 - 16 の よう な 回 転 を 行い ます . た と えば 10, 10 の 座標 に 平行 移動 し た 図形 に 
原点 を 中 心 に 45 度 の 回 転 を 与え る 場合 , 回 転 角 を 聞か れ ま すか ら , 45 と 入力 し ます . * ROTATE 
で は , この 入力 値 を 系 度 法 に 変換 し た あと 式 2 を 実行 させ 、 該 当 回 転 角 を 実施 し た 図形 を 表示 
させ ます . 


図 6-16 回 転 


そし て , 最後 の スケ ー リ ング . 


これ は 図形 の 拡大 も し く は 緒 小 を 意味 する も の で , 例え ば 図 6 - 
17 に 示す よう な スケ ー リ ング は 


図 6-17 スケ ー リ ング 


xx S、 


式 3 
デニ y ペペ S。 


の 式 で 得 ら れ ま す . メニ ュー の 3 を 選択 し 、*, y の 比率 に 5 5 を 選択 し て みる と 


回 転 で 得 ら れ た 図形 が , x, y と も に 5 倍 に 拡大 され て 得 ら れ ま す . 


平行 移動 の の ち 回 転 回 転 の の ち 拡 大 


以上 が 基本 的 な 2 次 元 図形 の 変換 プロ グラ ム の 説明 に な り ま す が , この な か で 注意 し な けれ は 
な ら な い の は 、 変換 後 の デ ゲー タ が 画面 の 男 囲 外 に 出 て し まう 場合 を 考え , クリ ッ ピ ング と いう 失 
作 を する 必要 が ある こと で す . クリ ッ ピ ング は 図 6 - 18 に 示す よう , 画面 か ら 図形 が は み 出 し た と 
き に , 画面 内 の 図形 の み を 囲み 取る 操作 で す . リス ト 6 - 18 で は * CLIPPING 以降 が その た め の 
ルー チン で 。 画面 の 枠 を 図形 が 横切る と き の 交 点 を 求め , 画面 内 の み を 描く よう に し て いる の で 
す . また , 変換 式 1 一 3 は , 一 般 的 に は 表 6 - 4 に 示す よ うに , 行列 計算 式 に よっ て 表現 され ます . 


交点 を 求め る 


図 6-18 2 次 元 図形 の クリ ッ ピ ング 


ト つ 
還 


6 章 グラ フィ ックス の 世界 
行列 の 計算 
SM ーsin 6 
表 6-4 2 次 元 図 形 の 変換 用 行列 式 
3 次 元 図形 の 変換 


3 次 元 の 図形 を 変換 する と き で も , 基本 的 に は 2 次 元 と 同 方 法 を と り ま す . 3 次元 の と き は 
行列 計算 式 が , 表 6- 5 の よう な も の に 変り 、 少 々 複雑 に は な り ま す が , 変換 自体 は 行列 演算 に よ 
っ て 行う こと が で きる の で す . 


行列 の 計算 式 
平行 移動 [XYZ] =[xyz] 十 〔 


X 軸 回 り の 回 転 
(ピッ チ ) 


[X Y Z] = 6 coOS 0 sin 二 


0 ーsIin P cos P 


[x y z] 


Y 軸 回 り の 回 転 
(へ ディ ング ) 


[X Y Z] = 〔x y z] 


cosB sin B 0 
[xyz] | 一 sinB cosB 


Z 軸 回 り の 回 転 
(バン ク ) 


[X Y Z] = 


[X Y Z] = [xy z] 


表 6-5 3 次元 図形 の 変換 用 行列 式 


リス ト 6-19 に 示す の が 3 -D 変換 の プロ グラ ム で , 各々 * MOVE, * ROTATE1 一 
SCALING で 変換 を 実行 し ます . この と き 2 次 元 と 比べ て 留意 し な けれ ば な ら な い の は , 
で ある か ら (X, Y, Z) の 3 つの 座標 で 位置 を 示す と いう こと . また , 2 状 元 で クリ ッ ピ ング 


を 行っ 


208 


た の と 同様 に , 3 次元 で も また クリ ッ ピ ング が 必要 と な り ま す . 


3。 ※ 
3 次 元 


6-5 グラ フィ ックス 上 拉 揚 


ニニ ニ デ デニ ニー ニー ニ デ ニニ ニニ ニニ ニー ニ 三 3D Graphic PaCkage ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニ 


MIFE : CONSOLE 89 : GLOCATE (160,199 ) , ,-1 
D=2999 : PT=299 

AX=PT/169 : AY=PT/199 

BX=1/AX : BY=1/AY 


"ーー Data inpu モ ーー 


INPUT “SAMPLE DATA (Y/N) 「jA$ 

IF Ab="Y' THEN N=11 : GOTO 149 
INPUT "HOU MANY DATA "5jN 

DIM X(N) ,Y(N) ,Z(N),MCN) 

FOR 1I=1 TO N 


169 IF A ま ="Y' THEN READ X(I),Y(I),Z(T),N(I) : GOTO 129 
179 PRINT-『XJs ee YUIGMS 5 山 注 ME 
189 TNPUT * "jXCT3WGHDSZ2GIDSUGI の 
199 NEXT 1 

299 GOUSUB xDRKAU_ 

219 * 

229 “-- Main -- 

239 ^ 

249  MHILE 1 

259 LOCATE (9,9) 

269 PREINT "イト "9 所 

279 PRINT "カイ テン X 2]・ 

289 PRINT "カイ テン Y EBM 

299 PRINT "カイ テン Z 4]* 

399 PRINT "スケ リー リン ク " E5 

310 PRINT "テン / A ン コ 9 上 6]" 

329 PRINT  " サ " ヒ ョ ウ 四 交 軸 

339 PRINT "シュ 9 リュウ [8]* 

349 NPUT A 

359 衣 RE メ MOVE , xEOTATE1 , *ROTATE2,*ROTATE3,*SCALING 、\VIEW、, 
*COOR , 389 

369 UEND 

379 ^ 

389 END 

399 ^ 

499 “-- Movue - 一 

419 ^ 

420 MOVE 

439 INPUT "イト * ウ ト * X & Y & Z" iTX,TY,TZ 
449 FOR 1=1 TO N 

4Sg X( 1 )=X( 1 )+TX 

469 Y(1 )=Y(1)+TY 

479 Z( 1 )=Z( 1 )+TZ 

489 NExT 

499 GOSUB xDRAUM_ 

S99 RETURN 

19 * 

529 “-- Rotate 1 - 一 

539 * 

549 xROTATE1 

559 INPUT " カ 2 ト *" 'jP 

569  P=PxPI/189 
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579 SINP=SIN(P ) 

589  CQSP=COSK(P ) 

590 FOE 1I=1 TO N 

699 X= X(1) 

6109 Y=-Z( ! )*SINP+Y( 1 )*COSP 
629 Z= Y(1I)*SINP+Z( { )\COSP 
639 X(1)=X : Y(L)=Y : Z(11)=Z 
649 NEXT 

659 GOSUB *DRAU_ 

669 RETURN 


689 “-- Rotate 2 -- 


799 ※ROTATE2 

719 INPUT " カ 2 ト " 「 jiH 

729 H=HxPI/189 

739 SINH=SIN(H) 

749 CUSH=COS(H ) 

759 FOR I=1 TO N 

769 X= X( 1 )※COSH+Z( {1 )*SINH 
779 Y= Y(1) 

789 Z=-X( 1 )\SINH+Z( 1 )xCOSH 
799 X(1)=X : Y(I)=Y : Z({)=Z 
899 NEXT 

819 GOSUB ※DRAU_ 

829 RETURN 


849 “-- Rotate 3 -- 

859 “ 

869 ぇ ROTATE3 

879 INPUT " カ 2 ト " "5B 

8S29  B=B*P1I/189 

3329 SINB=SIN(B ) 

299 COSB=COS(B ) 

219 FOR 1=1 TO N 

920 X=X( ] ) xCOSB-Y( 1 )xSINB 


239 Y=X( 1 )※SINB+Y( 1 ) xCOSB 
249 Z=Z( 1 ) 

956 X(1)=X : Y(1)=Y : Z(1)=Z 
269 NEXT 


279 GOSUB *DRAU_ 
289 RETUREN 
29290 『 
1999 “-- Scaling -- 
1919 “ 
1929 ぇ SCAL ING 
1939 INPUT "上 リ ツリ X&Y & Z'jSX,SY,SZ 
1949 FOR I=1 TO N 
1959 X( 1 )=X( { )xSX 
1969 Y( 1 )=Y( { )*SY 
127 ジ 7 5 )= イ (1) xSZ 
1989 NEx~ 
1999 GOSUB xDRAU_ 
1199 .RETURN 


1119 

1129 “-- Vieu point - 一 
1139 “ 

1149 テ VIEU 


前 ーーーーーー ニ ーーー ニ テ ー ニ ーー ニー ニー ニー ニー ニニ ーーー ニ ーー ニー ニー ニー ーーー 
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1159 PRINT D,PT 5 
1169 INPUT "ラテ ッ & 作 "-ー ス "iD,PT 
1170 AX=PT/169 : AY=PT/199 
1189  BX=1/AX : BY=1/AY 
1199 GOSUB xDRAU_ 
1299 RETURN 
1219 ^ 
1229 “-- Coordinate - 一 
1239 ^ 
1249 xCOOR 沈 
1259 PRINT " X Y 
12 S 生生 TBN ・. 
1279 PT USING " 杜 持 壮 折 半音 。 拓 半 村 圭 。 柱 音韻 。 提 杜夫 枯 柱 福 。 揚 拓 拉 哲 jT,X(IO) 
YOSG こ ・ 」EVaL 
1289  ?iF (I MOD 29)=9 THEN PRINT "HIT ANY KEY TO CONTINUE E 
INKEY$( 1 ) 
1299 NEXT i 
1399 PRINT "HIT ANY KEY ' : EVAL INKEY$(1 ) 
1319 CCLEAR 
1329 RETURN 
1339 ^ 
1349 “-- Dcau - 一 
ys 
1369 xDRAUM_ 
1379 UIPE 
1389 FOR 1=1 TO N-1 
1399 IF M(1I+1 )=9 THEN 1439 
1499 中 0029 9 筆 ) 仙 0 0) 2 Z3 デ (GRO 生 回 
1419 X2=X( 1+1 ) : Y2=Y(1I+1 ) : Z2=Z(1+1 )+D 
1429 GOSUB CLIP 
1439 NEXT I 
1449 RETURN 
1459 
1469 "ーー Clipping for 3D -- 
1479 6 
1489 XCL IP 
1499 3 : Y=Y1 : Z=Z1 : GOSUB CHECK : C1=CU 
1599 X=X2 : Y=Y2 : 7Z=Z2 : GOSUB *CHECK : C2=CV 
1519 S 
1529 MHILE (C1 OR C2) く <>9 
1539 IF C1 AND C2 THEN RETURN 
1549 IF C1 THEN C=C1 ELSE C=C2 
1559 と 
1569 IF C AaND 1 THEN りー 6 6 
15?79 IF C AND 2 THEN UM=(Z1-X1*AX)/((X2-X1 ) xAX-(Z2-Z1 ) 8013 和 1 る 
1589 IF C AND 4 THEN =(Z1+Y1xaAY)/((Y1-Y2)%AYー(Z2ー ア 1 ) ) : 
1599 =( 了 1-Y1xAY )/((Y2-Y1 )*AY-(Z2-Z1 〉 ) 
1699 
1619 X=U※(X2-X1 )+X1 : Y=MX(Y2-Y1 )+Y1 : Z=U※(Z2-Z1 )+Z1 
1629 2 四 
三 =X : Y1=Y : Z1=Z : GOSUB *CHECK : C1=CV 
時 Rs 還 き 26 : Y2=Y : Z2=Z : GOSUB *CHECK : C2=CV 
1649 UEND 
1 659 1 
1669 X1=PTxXX1/Z1 : Y1=PTxY1/Z1 
1679 X2=PTxXX2/Z2 : Y2=PTxY2/Z2 
1689 


1699 


LINE(X1 ,Y1 )-(X2,Y2),2 : RETURN 
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1728 テレ し ご こと TK 

80 CV= ぅ 3 

1 729 DZ= .99099999929 1* さ ABS( ディ ビ X ) 
1739 IF X<-ZzBX-DZ THEN CU=1 
1740 IF X> ZzBX+DZ THEN CV=CV+2 
17594 IF Y<-ZwBY-DZ THEN CV=CV+4 
1750 IF Y> Zs*BY+DZ THEN CV=CV+8 
1779 RETURN 

1789 “ 

1799 “-- Sample data 一 

1899 “ 


1829 DATA 1999,-599,-1999 , 1 
1839 DATA -1999,-599 ,-1999 , 1 
1849 DATA -1999,-599, 1999, 1 
1859 DATA 1999,-599, 1999,1 
1859 DATA 9, 509, 9, 1 
1879 DATA 1999,-599 ,-1999, 1 
1889 DATA 9, 599, 9,9 
1899 DATA -1999,-5909 , -1999, 1 
1999 DATA 9, 599, 9,9 
1919 DATA -1999,-599, 1999,1 


3 決 元 の 場合 、 2 次 元 と は 異な っ て , 図 6 - 19 に 示す よう な, 視野 ピラ ミッ ド と いっ た よう な 考 
え 方 が 必要 と な っ て きま す . 3 次 元 の 観点 で 物体 を 眺め る と き , 遠く か ら 見 た 場合 は 全体 が 見 え 
た の に , 近寄る と 部 分 し か 見 えな く な る の は 当然 の こと . だ か ら 視 野 ピ ラミ ッ ド を 想定 し て , 見 
える 男 囲 を 限定 する と いう 作業 が 必要 な わけ で , プロ グラ ム の 行 番号 1480 一 1770 で それ を 行っ て 
お り , アル ゴリ ズム は 2 次 元 の 場合 と ほとん ど 変 り ま せん . 


見 える 範囲 
2 く な る (見 る 物 ま の 
近く な る ) と 範囲 が 狭く な る 


図 6-19 視野 ビラ ミッ ド 


数 値 上 で の 変換 に 際 し て の 留意 点 は 以上 の よう な も の で す が , 実際 に 画面 に 表示 する と き は , 
3 次 元 の デー タ を 2 決 元 に 投影 し て や ら ね ば な り ま せん . そこ で , 図 6 - 13 に 示し た な か の 透視 変 
換 を 用 いて 平面 上 に 投影 する わけ で す が , この プロ グラ ム で は 単 点 透 視 で の 投影 を 行い ます . こ 
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れ は 非常 に 単純 な 方 法 で , 3 次 元 物体 の 見 か け 上 の 大 き さ は , 視点 か ら の 距離 に 反比例 する こと 
が は っ きり し て いま すか ら , 視点 を 原点 に 定め た 場合 , 点 (X、Y,z ) の 見 か け 上 の 位置 (N, 
た 


X 三 x グ z 


Y ニ = ッ y プ z So 


で 投影 し て し まい ます . リス ト 6 - 19 の な か で は 1660 行 , 1670 行 が この 操作 を 担当 し て いま す . 
リス ト 6 - 19 の 実行 の 手順 を 説明 する と , 基本 的 に は 2 決 元 で 行っ た も の と 大 差 は な い の で す 
が , 座標 値 を いく つも 入力 する の が 面倒 な の で サン プル デー タ を 入れ て あり ます か ら , 


SAMPLE DATA (Y ン N) 


と 開か れ た と き に , Y を 


入力 する こと で 座標 の 入力 を 回 避 す る こと が で きま す . この と き N 
カ し て 自分 で デー タ を 入力 する 場合 座標 ゲー タ の ほか に , 線 を 引く の か 座標 を 置く だ け な の か 
要 と な 


る た め , 線 を 引く 最初 の 点 を 0 で 与え 、 湊 々 に 1 を 与え て ゆく こ 


に に 
(ぐに し] 
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( 2 ) 光線 追跡 法 (ray- tracing) 


今 ま で ,。 パソ コン に よる コン ビュ ー タ ・ グ ラフ ィ ッ クス (CG) の ほとんど が , ワイ ヤー レニ 
ム に よる も の で し た . し か し , 現在 の CC と 言え ば, も う ワ イヤ ー フ レー ム の も の は あま り 見 か 
けず , 面 画 の も の ば か り で す . 従来 の 機種 で は , ドッ ト ご と に 8 色付け られ る だ け で , し か も そ 
の 8 色 が 原色 の 8 色 で し た か ら , これ も 無理 か ら ぬ こと と 言 えま す . 一 方 SMC-777 は 解像度 は 
320X200 と や や 低め な が ら 、 ドッ ト ご と に 16 色 を 付け られ ます し , オプ ショ ン の カラ ー パ レッ ト 
を 装着 すれ ば 4096 色 か ら 16 色 が 選べ る よう に な り ま す . これ で も コン ピュ ー タ ・ グ ラフ ィ ッ クス 
の 最 先端 で 使わ れ て いる 機械 に 比べ れ ば まだ まだ 非力 で す が , 面 画 の 雰囲気 ぐら い は 味わえ ます . 
ここ まで に も , いく つか 面 画 は 出 て きま し た が , ここ で は 現在 の CG で 多く 使わ れ て いる 光線 追跡 
法 に よる 面 画 を 描い て み ま す . 


ワー ルド 座標 系 


スク リー ン 座 標 系 


視点 一 般 に スク リー ン 座 標 系 は どこ に あっ て も よい の だ が , 本 婦 の プロ グラ ム 
で は x 三 constant の 平面 に し か 設定 で き な く な っ て いる 


図 6-20 光線 追跡 法 の 概念 

原理 

光線 追跡 湊 と いう と ワイ ヤー フレ ー ム に よる も の より , さら に 難し い 数 学 的 知識 が 必要 と 思わ 
れる 方 も 多い か も し れ ま せん . し か し , 単純 な も の を 描く 場合 は むし ろ 光 線 追 跡 法 の ほう が 簡単 
で は な いか , と 筆者 は 感 し て いま す . 後述 する プロ グラ ム に 使っ て ある 数 学 は 高校 2 年 まで に 学 
習 す る こと ば か り で す . 

光線 追跡 法 と は , 3 次 元 空間 に ある 物体 を 視点 を 定め て , ある 平面 (画面 ) に 投影 する 手 
法 で す . 視点 か ら 画面 上 の ある 点 に 向かっ て 直線 を 引き , それ を どん どん 延長 し て いき ます . そ 
の 直線 が 物体 と ぶつ か ら な けれ ば 画面 上 の その 色 は 背景 色 で すし , ぶつ か っ た ら , ぶつ か っ た 点 
の 色 が 画面 上 の 点 の 色 と な り ま す . この と き 。, 物体 の 位置 の 様子 を 記述 する た め の ワ ー ル ド 座 標 
系 と , 画面 に 対応 する 平面 で ある スク リー ン 座 標 系 (これ は 2 次 元 ) の 2 つが 必要 と な り ま す . 
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球 と その 影 を 描く 

ここ で は , 球 が 床 に 影 を お と し て いる 様子 を 描き ます . 一 般 に スク リー ン 座 標 系 は 任意 の 場所 
に 置け る の で す が , 簡単 に する た め に , ス クリ ー ン 座標 系 は ワー ルド 座標 系 の YZ 平面 と 平行 な 平 
面 販 間 0 の と ころ に し か 置け な く な っ て いま す . そし て スク リー ン 
座標 系 の 原点 は ワー ルド 座標 系 の X 軸 上 に 固定 され て いま す . また スク リー ン 座 標 系 と 実際 の 画 
面 と は 座標 値 が 同じ に な っ て いま す . た と えば , スク リー ン 座 標 系 の (10,20) は 画面 上 の (10, 
20) に 対応 し て いる わけ で す . 

カラ ー パ レッ ト の 説明 の 項 で 描い た 球体 と 同様 に , 平行 光線 が 球 に 当たり , 球 の 各 点 の 明る さ 
は , その 点 に 接する 平面 の 法 線 ベク トル と , 光源 の 方 向 へ 向かう ベク トル と の な す 角 の cos09 に 
比例 する と し て いま す . 床 の あ る 点 が 影 に な る の は , その 点 か ら 光 源 方 向 に 引い た 直線 が 球 と 導 
わる と き で す . 床 の 色 は カラ ー コ ー ド 1 で , 影 に な っ て いる と ころ は 背景 と 同じ 色 (カフ ラー コー 
ド 0) と な り ま す . 

数 学 的 に 説明 する と , まず , 


> 相 点 三 KYO で ) 
・ ス クリ ー ン 座標 系 は メニ X。。 の 位置 に ある 
・ 球 : (XーXc。)? 十 (マーY。。) 7? 十 (ZーZ。)7 ニ R2* 
床 : aX 十 bY 十 cZ 十 d ニ 0  (Xrsi く X く Xrsz, Yus」 く Y く Yus。 ) 


どじ 注 和 計 する と , 視点 と 画面 上 の 一 点 (Xsc, Ysr, Z。c) を 結ぶ 直線 は t を 媒介 変数 と する と , 


メーX。 十 (X。ー X。) t 
Y 三 Ys 十 (Y。 一 Yu)t 
Z 三 Z。 十 (Z。ーZ。)t 


と な り ま す 。 ご れ を 球 の 式 に 代 以 995 


1X ゅ ー Xs。 土 (X。ー X。) 1 5 
Cl 1IY ぁ ー Yes 圭 (Ye 一 Ys) 1 
十 1Z。ー Z。。 十 ( Z。。 一 Z。) t ニー R<* 


と な り , t に 関す る 二 商 方 程 式 に な り ま す . この 二 商 方 程 式 の 判別 式 D に より 、 


D> 0 : 直線 が 2 点 で 変わ る 
D= 0 : 直線 が 球 と 接する 
D く 0 : 直線 は 球 と は 交わ り も 接し も し な い 


と 場合 分 け で きま す . そし て 2 点 で 交 わる と き , t の 2 つの 解 を tu,t。 (ti く t。) と する と , 直線 が 
交わ る 点 の うち 視点 に 近い 点 は , 
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(Xe 土 (Xg 一 Xs) も , Ye 十 (YsーY ゅ )t, Z ぉ 土 (Z ェ ー Z。) も ) 
と な り ま す . また 直線 の 式 を 床 の 式 に 代入 する と, 


d (X。 土 (X。ー X。) も ) 
+b (Ys 土 (YsーYr)t) 
十 c(Z。 十 (Z。ーZ。)t) 十 d=0 


と な り 、t の 一 次 方 程 式 と な り ます. この 方 程 式 の 解 を t。 と する と , これ が t」 より 大 きけ れ ば 床 
の ほう が 遠く に あり , 球 が 見 える こと に な り ま す . 


プロ グラ ム 
リス ト 6 -20 に プロ グラ ム を 示し ます . 1230 行 以降 の DATA 文 に 図形 の デー タ が 入っ て いま す . 
これ を 順に 説明 する と, 


1230 : 視点 の 座標 

1240: スクリーン 座標 氷 が ワー ルド 座標 系 の X ニ いく つの と ころ に ある か 
1250 : 床 を 表す 平面 の 法 線 ベ クト ル 

1260 : 床 を 表す 平面 が 含む 点 1 つ 

1270 : 球 の 中 心 

1280 : 球 の 半径 

1290 : 光源 の 方 向 の あぁ, 9 を 度 (degree) で 表し た も の 

1300 : 床 は 長方形 と する が , その 対 角 の うち 一 方 の X% 座 標 と Y 座 標 
1310 : も う 一 方 の XX 座標 と Y 座 標 

1320 : 計算 する 画面 の 範囲 も 長方形 で ある が , その 対 角 の うち 一 方 
1330 : も う 一 方 

1340: ドッ ト の 横 の 長 さ プ 縦 の 長 さ 


RUN させ る と 二 次 元 の 座標 値 を 4 つ 表 示し ます が , これ は 視点 か ら 画 面 の 四隅 に 直線 を 引い 
だ た と き に , 床 を 含む 平面 と 交わ る 点 の X 座 標 と Y 座 標 で す . そし て , 
O.K. ? 
と た ず ね て きま す が , この と き Y ま た は y を 入力 する と 計算 を 始め ます . そし て , これ 以外 を 入力 
する と, 図形 の デー タ の 部 分 の リス ト を 表示 し て プロ グラ ム を 終了 し ます -. 
計算 中 に 左端 上 に 数 字 が 表示 され て いま す が , これ は その と き 計 算 し て いる 画面 上 の 点 の Y 座 


標 で す . た だ し , 画面 の 座標 系 は GLOCATE に より , 中 心 が 原点 で , 右 と 上 が それ ぞ れ 双 座 標 と 
Y 座 標 の 正方 向 に な っ て いま す . 
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List 6-20 


.MIPE 

.DEF FNRAD(DEG )=DEGXPI/189 
.READ XVP , YUP ,ZUP " ひ ieu poin セ 
READ XSC "x of screen 


READ XNL,YNL,ZNL "normal 1ine vector of the f] oor 

READ XFC,YFC,ZFC “a point the floor contains 

ACF=-(XNLxXFC+YNLXYFC+ZNLxZFC ) 
^acf : another constant for plain speci 和 Tication 
^ Xn 1 ※x キ アロ 1 ※ ッ + ァ n 1 ※ ァ +acp ニ 9 


READ XCS,YCS ,ZCS "center of the sphere 
READ RS ^cadius of the sphere 


READ PHI , THE ^phi and theta of the ligh も 
XLV=COS(FNREAD( PHI ) )*SIN(FNRAD( THE ) ) 
YLV=SIN(FNRAD( PHI ) )xSIN(FNRAD( THE ) ) 
ZLV=COS(FNEAD( THE ) ) 

^x1l り 。 ッ 1 ソ ,<]1v : 11gh モ Vector 


READ XLF1,YLF1 ,XLF2,YLF2 "1imits of the floor 
READ YPL1 ,ZPL1 ,YPL2,ZPL2 “1imits of the physical screen 
READ RAT atio of horizontal to verical 


YSC=YPL1*RAT : ZSC=ZPL2 : GOSUB ※VIAREA 

PRINT USING " 革 提 拉 提 持寺 。 革 昔 苦 共 格 。 皇 "jX1S,。YTSi 
YSC=YPL2xRAT : GOSUB *VIAREA 

PRINT USING " 持 半 苦 音 社 。 音 」 間 社寺 社 昔 。 揚 "3XIS,YIS 
YSC=YPL1 RAT : ZSC=ZPL1 : GOSUB *VIAREA 

PRINT _ USING " 昔 昔 培 揚 、 持 。 苦 苦 音 共 寺 。 持 "jX1S,YIS: 
YSC=YPL2xRAT : GOSUB *VIAREA 

PRINT USING " 提 壮 拉 井 社寺 。 半 提 寺 井土 。 村 "3X1S,YIS 
PRINT_ 0.K。 2 RS 0 の ラ INKEYSG19 

IF 1 まく >!Y" AND まく >" ッ "THEN LIST ※ODATA- : END 


CCLEAR 
CURSOR OFF 
CPALETTE OFF 
FOR 1=2 TO 15 
DEF _ PALETTE 1,9,9,1I ^col or oFf the spher ぉ 
NEXT 
DEF PALETTE 1,4,3,9 *color oFf the floor 
.BLOCATE( 169 , 199 ) , 9 ,-1 


2 CO 〇 OmDu 七 一 一 
XVC=XVP-XCS : XSV=XSC-XVP 
CQ2=XVUCxXVC-RSxRS : BQ2=XVC※XSV : AQ2=XSVsXSUV 
"ab,c of qauadratic equation 
BS2=XNLXXVP+ ACF : AS2=XNL※XSV 
"ab of simple equation 


つう 
+ー 
| 
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BZOSBIOESZSD=ZRMZ RI ZPL1、 SEEF =1 
699 PRINT (9,9)USINC "# 半 #"jZSC 
610 ZVC=ZVP-ZCS : ZSV=ZSC-ZVP 


629 CQ1=CQ2+ZVCxZVC : BQ1=BQ2+ZVCxZSV : AQ1=AQ2+ZSV※ZSU 
639 BS1=BS2+ZNLXZVP : AS1=AS2+ZNL※ZSV 


649 

659 FOR YPSC=YPL1 TO YPL2 

669 YSC=YPSCxRAT 

679 YVC=YUP-YCS : YSV=YSC-YUP 

689 CQE=CQ1+YVCXYVC : BQE=BQ1+YVCXYSV : AQE=AQ1+YSVXYSV 
690 BSE=BS1+YNLXYVP : ASE=AS1+YNL※YSUV 

799 、 

109 PTF=-BSE/ASE 

729 "pt : parameter | at intersec モ ion ui て th the 千 ] oor 
739 X1S=XVP+XSV※PTF : YIS=YUP+YSVXPTF : 7Z1S=ZVP+ZSV※XPTF 
749 ^ interSection uith the 千 ] oor 

7509 4 

ィ 766 DCE=BQE*XBQE-AQEXCQE 

779 IF DQE く 9 THEN GOSUB ※SNVISIBLE ELSE GOSUB XSPUVUISIBLE 
789 NEXT 

799 NEXT 

899 BEEP : BEEP 

819 END 

829 “ 

839 “-- sphere not visible - 一 

849 “ 


856 *SNVISiBLE 

869 IF XIS<XLF1 OR XIS>XLF2 THEN RETURN 

879 IF YIS<YLF1 OR YIS>YLF2 THEN RETURN 

889 

899  XIC=X1S-XCS : YIC=YIS-YCS : ZIC=ZIS-ZCS 
999 CQE=XICXXIC+YICXYIC+ZICXZIC-RS※RS 

919 BQE=XICXLV+YICXYLV+ZICXZLU 

29  “ XLVXXLU+YLVUXYLV+ZLUXZLV=1 

939 IF BQExBQE-CQE く 9 THEN GPLOT(YPSC,ZSC ) , 1 


249 RETURN 

959 “ 

969 “-- sphere probably visible - 一 
979 “ 


989 XSPV1ISIBLE 
999 PTS=(-BQE-SQR(DGE ) )/AQE 
1899 IF XIS<XLF1 0OP XIS>XLF2 THEN 1939 
1919 IF YIS<YLF1 QR YiS>YLF2 THEN 1639 
1829 IF PTS>PTF THEN GOSUB *SNVIiSIiBLE : RETURN 
1939  XIS=XVP+XSV*PTS : YIS=YVP+YSUPTS : ZIS=ZVP+ZSV※PTS 
1949 ^ inte と Section ぃ ith the sphere 
1959  CLR=((X1S-XCS )xXLV+(Y1S-YCS )*YLV+(7Z15-ZCS ) *ZLV)/RS 
1d69 IF CLR<9 THEN CLR=2 ELSE CLR=CLRX13+2 
1979  GPLOT(YPSC,7ZSC ) , CLR 
1d89 RETUEN 
1929 “ 
11d9 “-- visib]e area of ths plain uhich contains he flooC ニー 
1119 
1129 \※VIAREA 
1139 XSV=XSC-XVP : YSUV=YSC-YVP : ZSV=ZSC-ZVP 
1149 BSE=XNL*XVP+YNL*YVP+ZNL*ZVUP+ACF 
1159 ASE=XNL*XSV+rYNL*YSV+7 ア NLXZSV 
1169 PTF=-BSE/ASE 


6-6 SMC グ ラフ ィ ッ クス エディ ター の 利用 


ーー デーーーー ーー ニー ーー ニー ニー ニーー ーーーーーーー ニ ーーーーー ーーー ーーーーーー- 


1170  X1IS=XVP+XSV※PTF : YIS=YVP+YSU*PTF 
1189 RETURN 


1299 “--- data oFf the object 一 


1229 OUDATA 

1239 DATA 599, 199, 9  :"uieu poin セ 

1249 DATA 259 ^x of screen 

1259 DATA り 9, 1 :"normal line vector of the f] oor 
1269 DATA -89, 9 , -89 ^a point the floor contain5 
1279 DATA 9 ,-199, り 9  :"center of the sphere 


1289 DATA 49 :" adius oT the sphere 

1299 DATA 255 計 :SS : "phi and theta of the light 
1399 DATA -233, -259 : 1 imits of the floor 

1319 DATA  -59, -19 

1329 DATA ー79 。 -59  :"1imits of the physical screen 
1339 DATA 79, 25 

1349 DATA .85 た 
1359 =atio oFf horizontal length of the pixe! oO Ver モ 1 こ Ca 


光線 追跡 法 に よる 球 と その 影 


5-6 MC グラ フィ ックス エディ ター の 利用 


これ まで の 説明 で は BASIC に お ける グラ フィ ックス に 主眼 が 置か れ て いま し た . 計算 式 で 表 
せる 図形 の 絵 を 描く と き は BASIC の コマ ンド を 使う の も な か な か 有効 な の で す が , た だ 単に 絵 
を 描く と き に は 不便 で す . そこ で 、 それ 専用 の ツー ル を 使う こと を 誰 し も が 考え , 現在 世の中 に 
は 「 グ ラフ ィ ッ ク ・ エ ディ ター」 と 称す る ソフ ト が 数 多く 出回っ て いま す . ソニ ー の 「SMC グラ 
フィ ックス エディ ター( SMW-S001D ) 」 も そん な な か の 1 つ な の で す が , 別に ソニ ー に こび る わ 
け で は あり ませ ん が , グラ フィ ックス を エディ ッ ト す る ツー ル と し て は よく で きた も の と 言え ま 
す . 本 節 で は この 「 SMC グラ フィ ックス エディ ター」( 仕 下 GE と 呼び ます ) を 紹介 し , この エ 
ディ タ と BASIC を 組み 合わ せ た 利 用 方 法 を 追求 し て いき ます . 
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6 曹 グラ フィ ックス の 世界 


(1 ) 使い 方 


ます 起動 する に は Sony Filer の シレ ステ ム メ ニュ ー か ら GREDIT と いう も の を 選択 し ます . こ 
れ で GE の 「 エ ディ ッ ト モ ー ド 」 に 入り ます ,。 GE に は この 「 エ ディ ッ ト モ ー ド 」 と 「 コ マン ドモ 
UE 9 コマ ンド の 実行 や コマ ンド に 関す る 指示 は 基本 的 
に ファ ンク ショ ン キ ー で 行う よう に な っ て いま す . それ ぞ れ の キー の 機能 と 若干 の 情報 が 画面 に 
表示 され て いま す が 、 こ れ は スペ ー ス バー を 押す こと に より 、 画 面 の 下端 に 表示 する か 、 画 面 の 
上 端 に 表示 する か 、 表 示し な いか を 選択 する こと が で きま す . また [ 旧 ] を 押す と その と き の 状態 に 
応 し た 解説 が 表示 きれ ます . 


デイ ィ イッ トモ ー ド 

最も 基本 的 な 。 ドット ご と の エディ ッ ト は 、 エ ディッ トモ ー ド で 行い ます . 画面 に は 十字 型 の 
カー ソル が 表示 され , これ は カー ソル パドル に より 縦 。 横 , 斜め に 1 ドッ ト ず つ ,、 シフ トキ ー6 と 6 
同時 に 押す こと に より 8 ドッ ト ず つ , 移動 し ます . ド ッ ト の 色 を 変え る に は 表 6 - 6 に 示す よう 
な , 色 に 対応 する キー を 押し ます . また [CTRL| と 同時 に カー ソル パドル を 押す こと に より , カ 

ソル の 位置 の 色 を 隣 に コピ ー す る こと が で きま す . 


、 っ の ロモ の いい ロロ の 


回 回 回 回 回 回 回 回 


表 6-6 カラ ー コ ー ド と キー の 対応 


エディ ッ ト モ ー ド 中 に は さら に ., 


の 5 つの モー ド が あり , Normal モー ド 以 外 で は カー ソル が 8 画素 X 8 画素 の 四角 (画素 は ディ ス 
プレ イ 上 の 1 ドッ ト の こと ) に な り , ド ッ ト の 変更 は この 四角 の な か が 一 度 に 行わ れ ま す . 
2 X。 4 X, 8 X は それ ぞ れ , 2 倍 , 4 倍 , 8 倍 に 画面 を 拡大 する モー ド で , カー ソル が 8 画 
素 X 8 画素 と 一 定 で すか ら , カー ソル に 含ま れる ドッ ト 数 は それ ぞ れ 16。 4。 1 と な り ま す . 従 
っ て ドッ ト 単 位 の 修正 が や り や すく な る わけ で す . 1 キー を 押す と 表示 され て いる 拡大 され た 総 
を , も と の 絵 の 代 わり に Normal モー ド の 絵 と する こと が で きま す . 
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6-6 SMC グ ラフ ィ ッ クス エディ ター の 利用 


Norm 


FmW1 ネネ キ : 13 お LOCK: の メ > 4X 8BX : 
> 193] :( 奄 WE : RTWITIWWSE : RY ERS=commd 


SMC グ ラフ ィ ッ クス エディ ター て 描い た 町 並み 
(Normal モー ド ) 

Block モー ド は 画面 は その まま で , カー ソル だ けが 四角 に 変り 
[CTRL| を 押し な が ら カ ー ソ ル バ パドル を 押す と , カー ソル の 部 分 
8 画素 X 8 画素 の 部 分 に 複写 され ます . 

また , を 押し な が ら カ ー ソ ル バ パドル を 押し た り 、 単独 に Q キー を 押し た りす る と , カ 
ー ソ ル の 部 分 の デー タ が バッ ファ に 著 えら れ , 2Z キー を 押す こと に より その デー タ が 読み 出さ れ 
の 


パ 
lee」 


1ock モー ド 中 で 
画素 の 範囲 が 陸 の 


S 9 
CO 
固 
FR 
DS まい 
Co 


コマ ンド モー ド 

エディ ッ ト モ ー ド の Normal モー ド か ら , [ESC] を 押す こと に より コマ ンド モー ド に 移り ま 
す . コマ ンド モー ド 中 で [1 や [を 押す と ファ ンク ショ ン キ ー に より 実行 され る コマ ンド が 変 
り 、 併せ て 表示 も 変り ます . 以下 に コマ ンド を 列挙 し ます . 


Clear : 画面 全体 を ある 色 で 塗り つぶ す 

Color : 特定 の カラ ー コ ー ド の 部 分 を 別 の カラ ー コ ー ド に 変え る 

Load : 絵 の フ ァイル を 読み 込む . その 際 読 み 込 ん だ デー タ を どこ に 表示 する か を ファ ンク 
ショ ン キ ー で 指定 する . Home を 指定 する と 画面 一 杯 に 表示 され 、 Load を 指定 する 
と カー ソル の 位置 が 読み 込ま れる 絵 の 左 端 上 と な る 

Ovlay : 絵 の フ ァイル を , 左端 上 の 色 を 透明 色 (6-3 参 照 ) と し て 読み 込む 

Save : 絵 の フ ァイル を 書き 込む . その 際 長 方 形 の 男 囲 を 指定 し て セー プ す る こと が で きる 

Line : 2 点 を 結ぶ 直線 を 描 

Box  : 対 角 を 指定 し て 箱 を 描 

FBox : 中 を 塗り つぶ し た 箱 を 描く 

Circ : 中心 と 円 周 の 1 点 を 指定 し て 円 を 描く 

FCirc : 中 を 塗り つぶ し た 円 を 描く 
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Fill ・ あ る 部 分 を 塗り つぶ す 

Copy : 長 方 形 の 男 囲 を 別 の と ころ に 複写 する 

Text : グ ラフ ィ ッ ク 画 面 に 文字 を 書く 

Print : プ リン タ に 絵 を 出力 する 

Bordr : ボー ダー エリ ア の 色 を 変え る 

Palet パレット の 色 を 変更 する 

Move : 長方形 の 範囲 を 別 の と ころ に 移す 

Edge : 図 形 の エッ ジ を 検出 し て 図形 を 囲ん で 線 を 引く 
Scale : 図形 の 拡大 、 縮 小 を する 

Delet : セー プ さ れ た 絵 の フ ァイル を 消去 する 
Renam : セー ブ さ れ た 絵 の フ ァイル の 名 前 を 変更 する 
Exit 3 シス テム メニ ュー に 戻る 


( 2 ) BASIC に より GE の ファ イル を 読み 込む 
GE で 作成 し た 絵 の フ ァイル は 。, 
〈GE の Save コ マン ド て 指定 し た ファ イル 名 > . PIC 


と いう ファ イル 名 で ディ スク に 格納 され ます . この ファ イル は BASIC 中 で も リン クモ ジュ ー ル 
PIC.PAC に 入っ て いる 拡張 コマ ンド に より 読み 込め ます し , BASIC 上 で 描い た グラ フィ ックス 
を GE の 作る ファ イル と 同じ 形式 で ディ スク に セー プ す る こと が で きま す . まず ロー ド に は , 


_ GLOAD( < ファ イル 指定 > [, < 左 上 端 の X 座 標 >, < 左上 端 の Y 座 標 > ] ) 


と いう 拡張 コマ ンド を 用 いま す . < ファ イル 指定 > に 拡張 子 は 必要 あり ませ ん し , も し 仮に 拡張 子 
を 付け た と し て も ,、 それ と は 無関係 に .PIC が 拡張 子 と し て 使わ れ ま す . また 座標 値 を 省略 する 
と , 座標 舘 と し て は 、 画面 の 左上 端 が 採用 され ます . この _ GLOAD は BASIC の GPUT で 透明 
色 を 指定 し な か っ た と き と ,、 同様 な 動作 を し ます . 透明 色 を 指定 し た いと き は , 


_ GOVLY( く ファ イル 指定 〉 [, < 左上 端 の X 座 標 >, < 左上 端 の Y 座 標 >, < 透明 色 の カラ ー コ ー 
ド > ] ) 


を 使い ます . < 秀明 色 の カラ ー コ ー ド > を 省略 し た と き は 絵 の デ ー タ の 左上 端 の 色 が 透明 色 と し て 
採用 され ます . 


次 に , グラ フィ ッ ク 画 面 を 全部 セー プ し た いと き は , 


_ GSAVEALL( く < ファ イル 指定 >, く ポー ダー エリ ア の カラ ー コ ー ド >) 


ト っ 
ト いっ 
15 つ ) 
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を 使い 画面 の 一 部 を セー プ し た いと き は , 


_ GSAVE (< く フ ァイル 指定 > [ , く 始点 座標 X>, < 始点 座標 Y>, <X 方 向 の ドッ ト 数 〉, <Y 方 向 の 
ドッ ト 数 > ] ) 


と し ます . な お < 始点 座標 X > と <XX 方 向 の ドッ ト 数 〉 は 偶数 で 指定 し な けれ ば な り ま せん . 


で は , GE を 用 いて 作る ゲー ム プ ログ ラム を 紹介 し て み ま し ょ う . まず , 図 6 -21 に ボ す よう な 
画面 を 作り , ディ スク に MOGURA ” と 名 付け て セー プ し ます . 湊 に リス ト 6 -21 に 示す プロ 
グラ ム を 作り , ゲー ム (モグ ラ た た き ) に する わけ で す が , ここ で 注意 し な けれ ば な ら な い の は 。 
GE 中 で パレ ッ ト の 色 を 変更 し て も , GLOAD で 読み 込む と き に は , その パレ ッ ト の 内 容 は 読み 込 
まれ な いこ と で す . その た め に , GE 中 で 指定 し た と お り に , DEF PALETTE を 用 いて 指定 し 

な けれ ば な り ま せん . リ スト 6 -21 を 見 て も わか る よう に , この プロ グラ ム で は DEF PALETTE 
以外 の グラ フィ ッ ク コ マン ド は 一 切 使っ て いま せん が , それ で も この よう な ゲー ム を 作る こと が 
で きる の で す . 


茶色 (13, 5 , 2) ノ 青 緑 (0 , 9 , 7) 


モグ ラ タ タ キ 灰色 が か っ た 青 


777-BASIC , 6 , 14) 
暗い 緑 & Graphics Editor 
(1 , 4 , 1) 
時 
は だ 色 
(15 , 12 _10) 


YOUR SCORE 
NE を SS 


※ モ グラ の 色 は パレット 番号 1 て 7 の も の を 黄土 色 (14 , 9 , 2) 
その まま 用 いる 灰色 が か っ た 緑 ( 1 , 9 ,2) 


図 6-21a モグ ラ た た き ゲ ー ム 用 の 絵 


回 回 
9 5 


6 


絵描き ツー ル 」 に 留まら ず 、 作成 し た デー タ を 江 用 的 に 扱え る よう に な っ 


で っ 
癌 


グラ フィ ックス の 世界 


この よう に SMC グラ フィ ックス エディ ター は 単体 と し て の 完成 度 も さる こと な が ら 、 単 な る 「 お 


成 度 の 高い ツー ル と 言え ます , 


220 
230 
240 
259 
269 
279 
2809 
299 
399 
319 
329 
339 
349 
359 
369 
379 
389 
399 
499 
419 
429 
439 
449 
59 
469 
479 
480 
496 
っ 99 


"ーー MOGURA TATAK1I GAME -- 


GOSUB ※INIT 
GOSUB *START 
GOSUB ※GNMOV 
.6OT0 59 


"ーー Initialize routine 
※INIT 
UIPE : CONSOLE 49 : CURSOR OFF : CPALETTE OFF 
DEF INT A-Z 
DIM CRC$(7?) 
RESTORKE 249 
FOR I=1 TO 7 
READ CRC$( { ) 
NEXT 
DEF PALETTE 12,.9,.9,7 
DEE EAIEITIME 計 US 志 1152 
_GLOAD( "MOGURA" ,9,9 ) 
GCOLOR ,,12 
RETURN 
DATA BNSGPH OU 


"ーー 5ame Star 


XSTART 
YOUR=9 、 
CCOLOR 1,.2 : PRINT (12,.23) "HIT RETURN KEY 
IF INKEY$=CHR$( 13) THEN ST 
GOTO 319 
ST 
CCOLOR 9,,9 : PRINT (24,21 ) 
CCOLOR 9,,9 : PRINT (12,23) SPACE ま (44 ) 
FOR 1I=1 TO 7 
DEF PALETTE 1,9,9,9 
NEXT 
FOR 1=1 TO 199 
C=IRND(6)+1 
DEF PALETTE C,13,8,4 
FOR J=1 TO 139-I 
IF INKEY$=CRC ま (C) THEN HIT 
NEXT 
BEEP 
DEF PALETTE C,9,9,9 
NEXT 
RETURN 
※HIT 
DEF PALETTE C,15,9,9 


て いる , トー タル な 完 


List 6 -21 


PFEINT (24,21 ) YODUR 


いっ 


6-7 Nss-BASIC か ら の 移植 テク ニッ ク 


510  _PANIC(S9 ) 

5S29 YOUR=YOUR+1+[\19 
539 PRINT (24,21 ) YOUR 
S49 GOTO 469 


559 

569 “-- 5ame Over 
S79 “ 

っ 89 ※GI4OV 


9 の だ GR = IOG 


699 DEF PALETTE 1I,13,8,4 

619 NEXT 1 

629 CCOLOR 4,,2 : PRINT (13,23) “GAME OVER !! 

639 CCOLOR 1,,9 

649 IF YOUR>HIGH THEN HIGH=YOUR : PRINT (24,7) HIGH 
659 PAUSE 199 

669 RETURN 


6-7 Nas- 選 AI か ら の 移植 テク ニッ ク 


SMC-777 と いう パソコン が , 使い 勝手 ず だ よい と か , グラ フィ ックス が 美しい と か いう こと は , 
も う 十 分 お わかり の こと と 思い ます . し か し , コン ピュ ー タ は ソフ ト が 充実 し て いな く て は , ど 
ん な に よい ハー ド が あっ て も 活き て きま せん . そこ で 多く の パソ コン ユー ザー は 雑誌 や 書籍 に 吾 
っ て いる 様々 な ケア プリ ケー ショ ン ・ プ ログ ラム の リス ト を 自分 の マシ ン に 打ち 込ん で 楽し むこ と 
に な る の で す が , 残念 な が ら SMC-777 の 場合 ( 今 の と ころ り , それ ほど メジ ャ ー な 機種 で な いた め 
に , その まま 打ち 込め る リス ト と 出会う チャ ンス は それ ほど 多く あり ませ ん . 

そこ て 本 節 で は , 雑誌 や 書籍 な ど で し ば し ば リス ト の 掲載 され る (つま り メ ジャ ー な ! ) パ ソコ ン 
の 代表 機種 で ある NEC の PC-8801 の N。。-BASIC か ら , 777 BASIC へ の 移植 テク ニッ ク を , 機 
種 韻 の 違い の 多い グラ フィ ッ ク 関 係 を 中 心 に 追求 し て みた いと 思い ます . 


(1 ) 移植 テク ニッ ク の 基本 


移植 の 方 法 の うち 最も 素朴 な も の は , も と の プロ グラ ム を その まま 打ち 込ん で , プロ グラ フラム を 
走ら せな が ら 修 正 し て いく や り 方 で す . 初め の うち は , そう や っ て 移植 の 対象 と な る BASIC と 
777 BASIC の 命令 体系 を 頭 に 入れ て ゆく の が 一 番 よ いか も し れ ま せん . こう いっ た と き の 助 け 
と な る よう に , APPENDIX に は ,N。。-BASIC か ら 777 BASIC の クイ ッ ク ・ コ マン ドリ ファ レン 
ス を 載せ て お きま し た . これ を 見 な が ら コ マン ド を 覚え て いけ ば , 段々 と プロ グラ ム が 見 える よ 
うに な っ て ゆき ます . BASIC の 人 違い や , 共通 点 を の み 込み きえ すれ ば , ど の よう な こと を この プロ 
グラ ム は や ろう と し て いる の か , どこ を 変え れ ば 移植 で きる の か , し っ か り 把 握 し な が ら 作 業 を 
進め る こと が で きま す . 

777 BASIC で 何 か わ か ら な いこ と が あれ ば , この 際 し っ か り マ ニュ アル を 見 て 覚え て し まい 


ト つ っ 
ト つ う 
〇 1 
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まし ょ う . 自由 自在 に 操る こと が で きる よう に な れ ば , 移植 な ん て 簡単 な も の で す . そう な れ ば 
移植 の た びに , 別 の 機種 の BASIC を 見 る 目 が 開か れ て いく の に 気が付く で し ょ う . 

さき さて, グラ フィ ッ ク 関 係 の プロ グラ ム の 移植 で は , 次 の 3 つ に 関係 する 部 分 が 移植 の 鍵 に な り ま 
Sc 記 


・ 面 画 の 初期 設定 コマ ンド の 違い 
・ 解像度 の 違い 
・ 画素 の 違い ( 色 の 数 ) 


これ ら の 違い を 押さ えて し まえ ば , あと は コマ ンド の 細か な 差異 を 修正 する だ け に な り ま す . 
そこ で N。。- BASIC の これ ら に 関係 する 事柄 に つい て 詳し く 説 明 し て いき まし ょ う . 
画面 の 初期 設定 

N。。-BASIC で グラ フィ ッ ク 画 面 の モー ド を 設定 する コマ ンド は SCREEN で す . 

SCREEN a, b, c, d 
と いう 型 で 表せ る この コマ ンド で す が , a に は 0.,1,2 の 値 が 入り , それ ぞ れ の 意味 は , 


0 : カ ラー モー ド (640X200 ド ッ ト ) 
1 : 白黒 モー ド (640X200 ド ッ ト ) 
2 : 高 分 解 能 白黒 モー ド (640X400 ド ッ ト ) 


と な り ま す . b, c, d は , SMC-777 に は な ぃ い 機能 . た と えば 表示 する ペー ジ を 切り 換え る と き な 
ど に 使わ れる 指定 な の で , 移植 の 際 に は 無視 し ます . 
テキ スト 画面 の モー ド を 設定 する コマ ンド は CONSOLE で , 


CONSOLE a, b, c, d 


と いう 型 に な っ て いま す . a は 文字 表示 開始 行 を , b は 文字 表示 行 数 を 指定 し て いま す が , c は フ 
アァ ンク ショ ン キ ー の 内 窒 表 示 の ON/OFF を 表し て いて , SMC-777 で は 関係 あり ませ ん . d に 入 
る 値 は 。 テキ スト 画面 の 色 に 関す る も の で , 

0 癌 5 デキ 


スト 画面 を 白黒 モー ド に する 
1 : テ キス ト 画 


面 を カラ ー モ ー ド に する 


と いう こと を 指定 し ます . 
各部 の 色 を 指定 する コマ ンド と し て は , COLOR が あり , 


COLOR a, b, c, d 
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と いう 型 .a に 入る 値 は 文字 の 色 , b に 入る 値 は バッ ク グ ラウ ンド カラ ー, c に 入る 値 は ポー ダー 
カラ ー,d に 入る 値 は グラ フィ ッ ク の 表示 カラ ー を 指定 し ます . な お , Ns-BASIC に お ける カラ 
ー コ ー ド は , 


0 一 黒 ドー 誠 商 2 王 : 赤 3 人 
4 一 緑 5 水色 天上 05 区 双 当 / 人 5 三 2 日 


の 8 つと な っ て いま す . 
画面 の クリ ア に 関係 する コマ ンド は ひと つ だ け で , 


CLS a 
と いう 型 を し て お り , a の 値 に より , 


1 : 文字 だ け を 消す 
2 : グラ フィ ックス だ け を 消す 
3 : 両方 と も 消す 


と いう 指定 に な り ま す . 


解 條 度 と 色 

SMC-777 の 16 色 モー ド の 解像度 は 320X200 ド ッ ト . こ れ に 対し て PC-8801 は カラ ー で 640X200 
ドッ ト の 解像度 が あり ます の で , 何 も 考 え ず に 移植 し よう と する と, 絵 が は み 出 し て し まい ます . 
また , も っ と ドッ ト の 粗い 解像度 に 対し て 書か れ た プロ グラ ム を その まま 移植 すれ ば , 小さ すぎ 
て 見 栄え を が し な いも の に な っ て し まい ます . 適度 な 大 き さ に 移植 する 方 法 は いろ いろ 考え られ ま 
す が , これ に つい て は この あと の サン プル ・ プ ログ ラム を 参考 に し て 〈 く ださい. 

色 の 問題 に つい て は , SMC-777 は カラ ー パ レッ ト を 装着 すれ ば , 4096 色 か ら 16 色 を 選べ る の で , 
該当 する 色 が な いと いう 心配 は あり ませ ん . 白黒 や 8 色 の プロ グラ ム も 工夫 し て , 移植 後 の 方 が 
美しい と 言わ れる よう に 頑張 り ま し ょ う . 


( 2 ) サン プル ・ プ ログ ラム 


DRAGON CURVE 

さて プロ グラ ム で す . この プロ グリ ム (リス ト 6 -22) は Na。-BASIC で 書か れ て お り , リス ト 
6-23 は 777 BASIC で 書か れ て いま す . これ は グラ フィ ッ ク の きれ いな , その 独特 の 動き 方 か ら 
「 竜 の 名 前 を 付け られ な 数 学 的 曲線 を 組み 合わ せ た デ モン スト レー ショ ン で す . 


ト つ 
ト う 
1 


6 章 グラ フィ ックス の 世界 


19969 
1910 
1929 
1939 
1949 
1959 
1969 
19709 
1989 
19929 
1199 
1119 
1129 
1139 
1149 
1159 
1169 
1179 
1189 
1129 
1209 
1219 
1220 
1239 
1249 
1256 
1269 
1270 
1280 
1299 
1399 
1319 
1320 
1339 
1349 
1359 
1369 
1379 
1389 
1399 
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ィ 


"ーー DRAGON CURVE -= 


SCREEN 9,.9,9,1 : CONSOLE 9,25,.9,1 : COLOR 7,9,9,? 
DEFINT A-Z 
.LON6=1 : DIR=2 : POINT(329 ,199) : GOSUB xDIRSET 


FOR D=1 TO 18 
LOCATE 9,9 : PRINT "DEAPTH'"D 
COLOR ,」,,1+(D-INT(D/7?7 ) ※? ) 
GOSUB XPROCL 
NEXT : END 
PROCL 
IF D=9 THEN LINE -STEP(LONGXX,LONGxY ) : RETURN 
D=D-1 
GOUSUB *PROCL 
G60SUB *LEFT 
GO0SUB *PROCJ 
D=D+1 
RETURN 
PRO0CJ 
IF D=9 THEN LINE -STEP(LONGXX,LONGxY ) : RETURN 
D=D-1 
GOSUB *PRKOCL 
GO0SUB *RIGHT 
GOSUB *PROCJ 
D=D+1 
RETURN 
%RIGHT 
DIR=DIR+1 : IF DIR>4 THEN DIR=1 
GOTO xDIRSET 
※LEFT 
DIR=DIR-1 : IF DIR く 1 THEN DIR=4 
GOT0 *DIRSET 
※DIRSET 
ON DIR GOTO 1369.,1379,1389 , 1399 
X= 9 : Y=-1 : RETURN 
1 : Y= 9 : RETURN 
1 : Y= 1 : RETURN 
1 : Y= 9 : RETURN 


Z 


S DRAGON CURUE -- 


l List 6-22 


CLS 3 


ウン ンー 


GMODE 1 : GCOLOR ?,9,9,9 : GCLEAR : CCLEAR : CURSORK OFF 


DEF INT A-Z 
LONG=1 : DD=2 : X1=169 : Y1=199 : GOSUB ※DIRSET 


FOR D=1 TO 18 
LOCATE (9,9) : PRINT "DEAPTH' iD 
GCOLOR 1+(D-INT(D/7 )※7 ) 
GOSUB PROCL 

NEXT : ENO 
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1129 xPEOCL 

1139 IF D=9 THEN FORMARD 

1149 D=D-1 

1159 GOSUB *PROCL 

1169 GOSUB *LEFT 

1179 GOSUB xPROCJ 

1189 D=D+1 

1199 KRKETURN 

1299 XPROCJ 

1219 IF D=9 THEN *FORUARD 

1229 D=D-1 

1239 GOSUB xPROCL 

1249 GOSUB RIGHT 

1259 GOSUB *PROCJ 

1269 D=D+1 

1279 RETURN 

1289 RIGHT 

1299 DD=DD+1 : IF DD>4 THEN DD=1 
1399 GOTO xDIRSET 

1319 *LEFT 

1329 DD=DD-1 : IF DD<1 THEN DD=4 
1339 GOTO xDIRSET 

1349 xDIRSET 

1359 ON DD GOTO 1369,1379 , 1386 ,1399 
1369  X= 9 : Y=-1 : RETURN 

1379  X= 1 : Y= 9 : RETURN 

1389 X= 9 : Y= 1 : RETURN 

1399  X=-1 : Y= 9 : RETURN 

1499 xFORUARD 

1419  X2=X1+LONGxX : Y2=Y1+LONGxY 
1429 LINE (X1,Y1)-(X2,Y2) 

1439  X1=X2 : Y1=Y2 : RETURN 


この プロ グラ ム で は , LINE 文 の 変更 が 主 に な り ま す . と 言っ て も 最初 か ら 難 関 が 待ち 受け て い 
ます . スク リー ン の 初期 設定 が , それ で す . N。。-BASIC(1030 行 ) の SCREEN 0,0,0,1 は , カラ ー 
モー ド 指 定 で 解像度 640 <200 で ある こと を 示し て いま す . 続い て CONSOLE 0,25,0,1 : COLOR 
7,0,0,7 :CLS 3 で 画面 を クリ ア し て いま す が , 777 BASIC で は これ を GCOLOR 7,0,0,0 以 下 の 
命令 で 行っ て いま す (1030 行 )、 よく 777 BASIC の マニ ュ ア ル を 見 て , 何 を し て いる の か 理解 し て 
くだ さい . この 1 行 は , 指定 する 内 容 は 変っ て も , 大 部 分 の プロ グラ ム の 先頭 付近 に 存在 する 初 
期 設 定 の 部 分 で す . 

さて CURSOR OFF と は 何で し ょ う ) ? SMC-777 を 使っ て いれ ば わか る こと で す が , ブ ログ 
ラム の 実行 中 に は 不 必要 な カー ソル を 消す 命令 な の で す . 

本 題 の LINE 文 に 移り ます . 777 BASIC の LINE 命令 は , ご 〈 一 般 的 な も の で す が , STEP を 
使っ た 相対 指定 が で きま せん . つま り , LINE(X, Y) 一 (X+ ヶ ,Y+e) と は 書け て も , LINE 
(X。 Y) 一 STEP(z。 Z) と 書く こと が で きま せん 。 そこで プロ グラ ム に よっ て , 
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メニ X 十 @ :・Y ニ Y 十 @ 
LINE(X.Y) 一 (X,Y) 
X ニ X” :Y ニ Y" 


を 実行 し な けれ ば な り ま せん . も う ひ と つ , LINE 文 と GPLOT 文 を 使っ て , 


GPLOT(X,Y) 
LINEー(X 十 @,Y 十 〆 ) 


を 実行 する と , LINE(X, Y) -(X+g, Ye) と 同等 の 効果 が あり ます . これ は GPLOT 文 で 指 
定 され た 点 や , 他 の グラ フィ ッ ク 命 令 で , 最後 に 指定 され た 点 を BASIC は 覚え を て いて , LINEー 
(X 二 み , X 十 み ) が 実行 され る と き , 最初 の 点 を 補う か ら で す . 

N。- BASIC で 言え ば , GPLOT は PSET で あり , 全く 同じ こと を し ます が , Ns-BASIC は 
POINT と いう 命令 が あり , これ は , BASIC に その 点 を 覚え て も ら う だ け の 働き を し ます . これ 
が リスト 6-22 の 1050 行 の POINT の 正体 で す . 

以上 の こと を 頭 に 入れ て , も う 一 度 リ スト 6 -22 を 見 て くだ さい . 少し は 展望 が よく な っ た の で は 
な いで し ょ うか . な お DRAW 文 を 使っ た 移植 の 一 例 と し て リス ト 6 -24 を 挙げ て お きま す の で 参 
考 に し て 〈 く だ さい . 


l List 6-24 


1999 “ 
1919 “-- DRAGON (DRAM VERSION ) -- 


1939 GMODE 1 : GCOLOR ?,9,9,9 : GCLEAR : CCLEAR : CURSOR OFF 
1949 DEF INT A-Z 
1959 .DRAM "S1Z9m169,199" : DD=2 


1979 FOR D=1 TO 18 

1989 LOCATE (9,9) : PRINT "DEAPTH' iD 
199209 C=1+(D-INT(D/7)x?) : DRAU "C(C)”“ 
1199 GOSUB *※PROCL 

1119 NEXT : END 

1129 PROCL 

1139 IF D=9 THEN DRAU "R' : RETURN 


1149 D=D-1 

1159 GOSUB *PROCL 
1169 GOSUB ※LEFT 
1179 GOSUB \PROCJ 
1189 D=D+1 


1199 RETURN 

1299 PROCJ 

1219 IF D=9 THEN DRAM "R' : RETURN 
1229 D=D-1 

1239 GOSUB ※PROCL 

1249 60SUB \RIGHT 

1259 GOSUB ※PROCJ 

1269 D=D+1 

1279 RETURN 
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1289 ※RIGHT 

1229 DD=DD+1 : IF DD>4 THEN DD=1 
1399 GOTO DIRSET 

1319 ※LEFT 

1329 DD=DD-1 : IF DD<1 THEN DD=4 
1339 GOTO DIRSET 

1349 xDIRSET 

13S9 ON DD GOTO 1369 , 1379 , 1389 , 1329 
1369 DRAU *"A99"  : RETURN 

1379 DRAM "A9" : RETURN 

1389 DRAM "A279" : RETURN 

1329 DRAM "A189" : RETURN 


DEPTH 13 
代 PIR 49 


N』a- BASIC に よる ドラ ゴン カー プ 777 BASIC に よる ドラ ゴン カー プ ブ 


基本 的 に は 777 BASIC へ の 移植 は 、 パラ メー タ の 人 違い 等 に 気 を 付け れ ば 比較 的 スト レー ト に 
行え を ます . あな た の SMC-777 に も ドラ ゴン を 走ら せ て ください. 


3-D SHEET 

ダイ ナミ ッ ク な 動き の ドラ ゴン の あと に は , 静か な 美しい プロ グラ ム を 移植 し て み ま し ょ う ・ 
ワイ ヤー フレ ー ム の コン ピュ ー タ ・ グ ラフ ィ ッ クス に ,。 パ レット 処理 を 使っ た 回 転 する 球体 を 乗 
せ て いま す . 

リス ト は 2 つ あ り . それ ぞ れ N。-BASIC と 777 BASIC で 記述 され て いま す . 

さて Na-BASIC の 640X200. 8 色 の グラ フィ ッ ク を 移植 する 際 777 BASIC で も 8 色 を 使う 
こと に し て 320 X200 の 画面 を 採用 する と 、X 軸 が 半分 に な っ て し まい ます . そこ で X 軸 に 関す る 
設定 を 半分 に し て 対応 する わけ で す が ( リ スト 6 -23.1050 行 参照 )、 この プロ グラ ム で は 計算 が 後 
雑 で ,。 そう いっ た 処理 が 困難 で す . そこで, 入口 が だ だめ な ら 出 口 を と いう こと で ,GPLOT や LINE 
な どの 出力 部 で 値 を 半分 に し て し まっ て いま す . 

1180、1240, 1260、1280 行 を 見 て くだ さい . 多少 効率 は 落ち ます が , この よう に 複雑 な ブログ 
ラム で , 結果 の 比率 だ けが 問題 な と き に は , 作業 効率 か らい っ て も , この 方 法 は 有効 な 手段 と い 
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ミル M 
える で し ょ う . た だ し 出力 部 の 数 が 多い と き や , プロ グラ ム の 流れ が 単純 な も の は , 設定 を や り 


直し た 方 が 美しく な り ま す . 0 
1330-1370 行 で は CIRCLE の 半径 を , 777 で は X 軸 と Y 軸 に 分 け て 記述 する た め の 処 5 
トー リー 4 
1400 行 以降 は パレ ッ ト 機 能 の 違い で す . 777 の パレ ッ ト は RGB アナ ログ 表示 に よっ て 16X16 
> ュー リー 人 へ 
16=4096 色 の 指定 が で きる た め , N。-BASIC の よう に RGB2x2x2=8 色 の 表示 に 合わ せる 


に は 原色 を 使い ます . 。. 和 0 
777 で は RGB 各色 は 16 段 階 の 色調 を 持ち ます が , 赤 な ら R=15, C= ニ 0, B=0, 緑 な ら R ニ 0, 
G=15, B=0, 青 な ら R=0, G=0, B=15 の よう に 8 色 表 示 の と き に は , 15 と 0 の 組合 せ で 色 


を 決め れ ば よい わけ で す . 
1460 行 以降 で は , な る べく 単純 に な る よう に , も と の プロ グラ ム を 生か し て , 3 個 の 球 の 内 で 


1 個 だ け を 異な る 色 に する と いう 主旨 を 実現 する に と ど め て いま す . 回 転 し て いる よう に 見 える 
に は , 最低 1 個 が 識別 され る 必要 が あり ます . ここ で は パレ ッ ト を 変え る こと で 物体 の 移動 を 実 
現す る , と いう こと を 読み と っ て プロ グラ ム を 移植 し た こと に な り ま す . 

移植 途上 で 走ら せる うち に , 数 々 の エラ ー(Syntax Error や Illigal function call な ど ) が 出る 
と 思い ます が , クイ ッ ク ・ コ マン ドリ ファ レン ス を 活用 し て 切り ぬけ て くだ さい . 筆者 が 悩ん だ 
も の と し て は , pset 命令 に 対し て 「 配 列 が 範囲 を 超え て いま す 」 と 言っ て くる , と いう エフ ー が 
あり まし た . これ は PSET が 777 BASIC の 了 予約 語 で な い の で , PSET( 双 ,」Y) を 配列 だ と 思わ れ 


て し まっ た わけ で す . 
it 6-25 


1999 “ 

1919 “-- 3 sheet -- 

1929 “ 

1939 DIM MAX(648 ) , MIN(649 ) , BEFORE( 85, 1 ) 
1949 P=9 : SCREEEN 9.9 : CLS 3 

1959 FOR 1I=9 TO 7 : COLOR=( 1 ,T) : NEXT 
1969 “ 

1979 FOR 1=1 TO 648 

1989 MAX( { )=9 : MIN(1)=2g9 

199d NEXT 

1199 FOR 1=1 TO 85 STEP 2 

1118 BEFORE( 1 , 9 )=2xI+394 

1129 BEFORE( { , 1 )=199-{ 

1139 NEXT 

1149 “ 

1159 FOR Y=2 TO 139 STEP 2 

1169 C=C+ 1 

1179 COLOR ,,,C-INT(C/2)x2+4 

1186 POINT(4-3xY+499 , 189-Y/2 ) 

1199 FOR X=1 TO 85 STEP 2 


1289 S=(Xー42 )※(X-42) : =(Y-35)x(Y-35) 

1218 U=(Yー79 )※(Y-79 ) : V=(Y-195)x(Y-105) 

1229 Z=4599/(S+T+39 )+4599/(S+U+39 ) -4599/(S+V+39 ) 
1239 PY=Z/2+X+Y/2 : PX=2xX-3xY+499 

1249 LTNE -(PX,189-PY ) 
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1259 IF Y=2 THEN xSKIP * 
1269 LINE(BEFORE(X, 9 ) ,BEFORE(X, 1 ) )-(PX, 189-PY ) 
1266 0 189-PY ) 

1289 POINT(PX, ー し たく 

1299 BEFORE(X,9)=PX : BEFURE(X, 1 )=189-PY 

1399 NEXT 

1319 NEXT 

1329 


1339 FOR 1I=1 TO 2 か 

1349 CIRCLE(145,24*I),6,1 : BAINDGCMS2SNN 
1359 CIRCLE( 199,25*1),7,2 : FANEG2O2 
1369 CIRCLE( 169,39xI),8,3 : PAINT(169,3 に 


1379 NEXT 
1389  C(1)=1 : C(2)=6 : C(3)=1 
1399 ^ 


1499 MMHILE 1 

1419 G0SUB TURN 

1429 COLOR=(4,2) : COLOR=(5,3) 
1439 GOSUB xTURN 


1449 COLOR=(4.,4) : COLOR=(5,5) 
1459 UEND 

1469 xTUPN 8 

147Z9 ビビ =9 TO 1 

1489 9 0 TO 3 : C(J)=C(J+1 ) : NEXT 
1499 C(3)=C(9 ) 

159g FOR J=1 TO 3 

1519 COLOR=(J,C(J) ) 

1529 NEXT 

1539 FOR K=1 TO 599 : NEXT 
1549 NEXT 


1559 RETURN 


List 6-26 


1999 ^ 
1919 “-- 3D sheet -- 


) 
1939 DIM AXC646 ) ,MIN(64 ),BEFORE(8 う , 
1949  P=9 : GMODE 1 : GCLEAR : CCLEAR : CURSOR OFF 
19S9 PALETTE RESET 
| Z 


1979 FOR 1=1 TO 649 

1989 MAX( 1 )=9 : MIN(1 )=299 
1999 NEXT 

1199 FOR 1=1 TO 85 STEP 2 
1119 BEFORE( 1 ,9 )=2X1T+394 
1129 BEFORE( 1 , 1 )=199-{ 
1139 .NEXT 


1159 FOR Y=2 TO 139 STEP 2 

1169 C=C+1 

1179 GCOLOR C-INT(C/2 )x2+4 

1189 ンー 

1199 FOR X=1 TO 85 STEP 

1209 S=(Xー42 )x(X-42) : 性 
1219 U=(Yー79 )※(Y-79 ) : り =(Y-195 )※(Y-19 


ーーーーーーーーーーーーーーーーーー ーー ニー ーー ーー 一 ーーーーーーー ーーーー 一 
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〇 の 


1229 
1239 
1240 
1 259 
1269 
1279 
1289 
1290 
1399 
1319 
1320 
1 339 
13469 
1359 
1348 
1379 
1389 
1399 
1490 
1419 
1426 
1436 
1449 
1459 
1469 
1479 
1489 
1429 
1599 
1516 
152 

1539 
1549 
1559 


グラ フィ ックス の 世界 


Z=4599/(S+T+30 )+4599/(S+U+39 )-4599/(S+V+39 ) 
PY=Z/2+X+Y/2 : PX=2 ォ Xー3※Y+409 
LINE -(PX/2,189-PY ) 
IF Y=2 THEN ※SKIP 
LINE(BEFORE(X,9)/2,BEFORE( X, 1 ) )-(PX/2 , 189-PY ) 
\SK1P 
5PLOT(PX/2 , 189-PY ) 
BEFORE(X,9)=PX : BEFORE(X, 1 )=189-PY 
NEXT 
NEXT 
FOR =1 TO 2 
CIRCLE(72,24※1 ) , 
CIRCLE(25,25※I ) , 
CIRCLE(89 , 39※*1 ) , 
NEXT 
C(1 )=1 : C(2)=6 


5 PAINT(72,.24x1),1,1 
ぅ 2 : PAINT(95,25 ミ 1 ) ,2,2 
が つづ FAINT(B9,39*T),3,3 


UMHILE 1 
50SUB ※TURN 
DEF _ PALETTE 4.9,15,9 : DEF PALETTE 5,9,15,15 
GOSUB *※TURN 
DEF.PALETTE 4.15,9.9 : DEF PALETTE 5,15,8,15 
UEND 
*TURN 
FOR I=9 TO 19 
FOR J=9 TO 3 : 6C(J)=CCJ+] ) : NEXT 
C(3)=C(6) 
FQR J=1 TO 3 
EENEAIEESNE 還 り 半 GGO9 り 二分 (仙人 ) 款 (0 
NEXT 
FOR K=9 TO 599:NEXT 
NEXT 
RETURN 
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フ 章 ハー ドウ ェ ア 


SMC-777 と いう 機種 が , コン パク ト な ポ デ ィ に 多彩 を 機能 を 盛り 込ん だ マシ ン で ある と いう こ 
と は , これ まで の ソフ トウ ェ ア 中 心 の 解説 で , 大 方 お わか り い た だ けた も の と 思い ます . コス ト 
パフ ォ ー マ ンス の 高い パソ コン が , この SMC-777 と いえ る わけ で す が , さら に この 機種 の 能力 を 
引き 出し て や ろう と 思っ た を なら, どう し て も ハー ドウ ェ ア の 特性 を , より 詳し く 知ら ね ば な り ま 
せん . 特に 機械 語 の プロ グラ ム を 作る 場合 に この こと は 顕著 に な り ま す . 本 章 は この よう な ハー 
ド に 関す る 若干 突っ 込ん だ 解説 。 き ら に ハー ド の 特性 を 利用 し て , 少々 毛色 の 変っ た こと も で き 
る と いう 可能 性 の 提示 を し て みた いと 思い ます . 


7-1 ハー ドウ ェ ア 構 成 


(1 ) 概要 


SMC-777 は CPU に 現在 の と ころ 世界 的 に メジ ャ ー な 2Z-80A を 採用 し て いま す . クロ ッ ク は 
4.028MHz で , この CPU の クロ ッ ク も 含め て タイ ミン グ 信 号 は CX-20120 と いう ソニ ー の カス タ 
ム 1C が 作り 出し て いま す . メイ ン メ モリ は 64K DRAM 8 個 で 64 K バイ ト , バン ク 切 り 換え を し 
て 使う ROM (シャ ドウ ROM と 呼ぶ ) が 128K の ROM 1 個 で 16K バイ ト . 

キャ ラク タ 表 示 は 80 桁 X25 行 と 40 桁 X25 行 の 2 つの モー ド が あり , 40 析 の と き は 2 画面 持つ こ 
と が で きま す . キャ ラク タ 関 係 で は , キャ ラク タ RAM (CRAM)、 ア トリ ビュ ー ト RAM(ARAM 
), PCG が それ ぞ れ 2K バイ ト で 合計 6 K バイ ト 、 そ し て CRTC と し て は HD46505S- 1 が 使わ れ 
て いま す . グラ フィ ックス は 320X200 で ドッ ト ご と に 16 色 の 指定 が 可能 な モー ド と , 640X200 で 
4 色 の モー ド が あり ます . ビデ オォ RAM は 64K SRAM 4 個 (ちょ っ と ぜいたく ) で 32K バイ ト . 
これ ら 画 面 関係 の RAM は すべ て 1 プ O に マッ ピン グ さ れ て いま す . そし て CX-20121 と いう カス 
タム IC が 最終 的 に ビデ オォ 信号 を 作っ て いま す . また , オプ ショ ン の カラ ー パ レッ ト を 装着 すれ ば 
一 気 に 4096 (16?) 色 中 か ら 16 色 を 選ん で 使え る よう に な り ま す . 

SMC-777 の マイ クロ フロ ッ ピ ー デ ィ ス ク は 256 バイ ト / セ クタ ,16 セ クタ / ト ラッ ク ,70 ト ラッ 


7 莉 ハー ドウ ェ ア 


ク プ サーフ ェ ス で 、, 片面 な が ら 合計 280K バイ ト の 容量 が あり ます . デー タ 転 送 速 度 は 500K ビッ 
トノ グ 秒 で 5 イン チ デ ィ ス ク の 2 倍 、 8 イン チ デ ィ ス ク と 同じ に な っ て いま す . FDC に は MB8877 
A を 採用 し 、 デー タ 転 送 に は DMA を 使わ ず Z-80A が 直接 行っ て いま す . 

サウ ンド 拉 能 と し て は 、 PSG SN76489AN に より 3 重 和 音 と ノイ ズ が 発生 で きる ほか , CPU 
が 直接 ポー ト の ある ビッ ト に 0 また は 1 を 出力 する こと に より , 音 を 発生 きせ る こと も で きま す . 
BASIC の PLAY コマ ンド で は CPU に より 、SOUND コマ ンド と EFFECT.PAC で は PSG に 
より , 音 が 発生 させ られ て いま す . 

その ほか , キー ボー ド の スキ ャ ン は 1 チッ プ CPU 8041A が ソフ トス キャ ン で 行ない , キー が 
押さ れ た と き 割 込み を か ける こと が で きる よう に な っ て いま す (BASIC で は 使っ て いな い ). 


( 2 ) シャ ドウ ROM 


SMC-777 に は メイ ン メ モリ 64K と シャ ドウ ROM 16K を バン ク 切 り 換 え に よ り 使 っ て いま 
す . シャ ドウ ROM は 0000H-3FFFH に マッ ピン グ さ れ て いて , シス テム が リセ ッ ト さ れ た と き 
は シャ ドウ ROM が 選択 され て ,、 この な か の IPL に より シス テム が 読み 込ま れ ま す . シャ ドウ 
ROM に は この ほか に , 1/O, 演算 ,」 グ ラフ ィ ッ クス 関係 の ルー チン や PCG に 書き 込む フォ ント 
デー タ も 入っ て いま す . 

シャ ドウ ROM に バン ク 切 り 換え を する 手順 は 一 般 の バン ク 切 換え より 若干 賢く な っ て いま す 
の で , 以下 に 説明 し ます . SMC-777 で は 1CH また は 1DH ポー ト に 00H を 出力 すれ ば ROM が , 
10H を 出力 すれ ば RAM が 選択 され ます . し か し , 一 般 の バン ク 切 換え の よう に OUT 命令 の 実行 
直後 に バン ク が 切り 換 わ っ て し まう の で は , この OUT 命令 は ,。 バン ク 切 換え を し て も 変っ て し 
まわ な い 部 分 (4000H-FFFFH) に な けれ ば な り ま せん . そこ で SMC-777 は OUT 命令 の 次 の 命 
令 が 実行 され た 後に 切り 換わる よう に な っ て いま す . で すか ら , 0000H 一 3FFFH に , 


RAM/ROM 


ROM 選 択 


図 7-1 シャ ドウ ROM 選 択 の メカ ニズム 
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LD A, 0 
OUT (1CH), A 
JP 0000H 


と いう 部 分 が あっ て も , これ が 実行 され れ ば , し っ か り シ ャ ドウ ROM の 0000 番 地 ヘ へ ジャ ンプ し 
ます . これ は , 図 7-1 の よう に M1 を 数 える こと に より 実現 され て いま す . この 回 路 を 見 る と わか 
る よう に , さき ほど 「OUT 命令 の 次 の 命令 が 実行 され た あと 」 と 書き まし た が , これ は MI サイ 
クル が 2 つ あ る 命令 に 関し て は 成り 立た な いこ と に な り ま す . で すか ら , 上 の 例 の JP 0000H の 代 
わり に JP (IX) な ど は 使え な いこ と に な り ま す . 


(3 ) 画面 


画面 構成 

6 章 で も 触れ た よう に , SMC-777 で は キャ ラク タ 表 示 と グラ フィ ックス 表示 と に は 独立 し た 
VRAM が あり , グラ フィ ックス の 上 に キャ ラク タ が 重ね て 表示 され る 形 に な り ま す . また , キャ 
ラク タ や グラ フィ ックス が 表示 され る 部 分 の 外側 は ポー ダー エリ ア と 呼ば れ , この 部 分 は 色 だ け 
が 16 色 中 か ら 指 定 で きま す . 

画面 表示 関係 の メモ リ は すべ て 1 ンプ 0 に マッ ピン グ さ れ て いる と 書き まし た が , これ に は じ し 
ジス タ に よる IN, OUT 命令 で は , アド レス の 上 位 8 ビッ ト に B レ ジス タ の 内 容 が 出力 され て し 
まう こと を 利用 し て いま す . そし て , 画面 表示 関係 の ハメ モリ の アク セス に は B レジ スク で 下位 8 
ビッ ト を , C レ ジス タ で 上 位 8 ビッ ト を 指定 する よう に し て いま す ( 図 7-2)、 こ うし な いと , C レ 
ジス タク を 使わ な い 通 常 の IN, OUT 命令 が 使え を な く な っ て し まう か ら で す . 


CPU 便 VRAM 側 
A15 A15 
上 位 8 ビッ ト 
C レ ジス タ を 使う IN, 
OUT 命 令 で B レ ジ 
スタ の 内 容 が 出力 
され る 
A8 A8 
A7 A7 
下位 8 ビッ ト 
C レ ジス タ の 内 容 ( 0 
が 出力 され る 
A0 A0 


図 7-2 VRAM の つなが れ 方 
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キャ ラク タ 表 示 

すでに 何 度 か 説明 し た よう に , キャ ラク タ 表 示 に 関す る メモ リ に は キャ ラク タ RAM (CRAM 
), アト リ ビ ュ ー ト RAM (ARAM), PCG (キャラ クタ ジェ ネ レ ー タ が RAM に な っ て いて 変更 
可能 ) が あり ます . 

CRAM に は 表示 する 文字 の キャ ラク タコ ー ド が 入っ て いて , 0000Hー07FFH に 割り 当て られ 
て いま す . 領域 は 2048 バ イト と られ て いま す が , 実際 に 使用 され る の は 0000Hー07CFH の 2000 バ 
イト で す . そし て , 40 桁 モー ド の と き は 1 番地 お き に 使用 され ます . 

ARAM は CRAM の それ ぞ れ の 番地 の キャ ラク タ を どの よう に 表示 する か を 指定 する も の で , 
0800H-0FFFH に 割り 当て られ て いま す ( 使 用 され る の は 0800Hー-0FCFH). 指定 する 内 容 は 。 
文字 の 色 , 文字 の バッ ク グ ラウ ンド の 色 , ブリ ンク させ る か 否 か , 等 で す が , ARAM に 書き 込ま 
れ た デー タ の 詳細 な 意味 は 表 7 - 1 に 示し ます . 

Logo の テキ スト スク リー ン 状 態 で は グラ フィ ックス が 実際 に 消さ れ た の で は な く 。 た だ マス 
ク さ れ た だ け に な っ て いま す が , これ は キャ ラク タ の バッ ク グ ラウ ンド カラ ー を 黒 (スプ リッ ト 
スク リー ン 状 態 や BASIC の 通常 の 状態 で は , 透明 に な っ で て いる) に する こと に より 実現 し て いま 
す . また テキ スト スク リー ン 状 態 か ら フ ルス クリ ー ン 状態 に し て 再び テキ スト スク リー ン 状 態 
に 戻し た と き , 画面 は も と の まま に な っ て いて ,、 キャ ラク タ 表 示 が マス ク さ れ だ た か の よう に 見 え 
ます . これ は , Logo で は 40 桁 モー ド し か 使わ な いた め 通 常 の キャ ラク タ 表 示 に は 偶数 番地 の C 
RAM, ARAM を 使い , 奇数 番地 の CRAM は スペース., 奇数 番地 の ARAM は 07H ば か り に し て 
お く の で す . こう な っ て いれ ば , フル スク リー ン 状 態 の と き は CRAM, ARAM の 奇数 番地 を 表 
示す る こと に よっ て , キャ ラク タ 表 示 が マス ク さ れ た か の よう に 見 せ か ける こと が で きま ます. 

1 つの キャ ラク タ は 8X8 ド ッ ト て 構成 され て いて 、 キャ ラク タタ ジェネレータ に は 1 文字 に 対 
し て 8 バイ ト 必 要 で す . PCG は 1000Hー17FFH に 割り 当て られ て いて , リセ ッ ト さ れ た だ た と き や 
BASIC の FONT RESET が 実行 きれ た と き に は , シャ ドウ ROM か ら フ ォ ン ト デ ー タ が 読み 込 
7EE 吉 記 


1 だ と ビッ ト 6 て ビッ ト 0 が 0000111 と な っ た こと と 同じ に な る 
1 だ と フォ アグ ラン ド の 部 分 が 点 減 す る 
1 だ と フォ アグ ラン ド と バッ ク グ ラウ ンド の 色 が 入れ 替わる 


20 の の グラ ウン ドカ ラー 
00: 透 明 01: 黒 10: 白 11: フォア グラ ウン ド の 補色 


フォ アグ ラウ ンド カラ ー 


表 7-1 ARAM に 書き 込ま れる アト リピ ビュ ー ト 


7-1 ハー ドウ ェ ア 構 成 


グラ フィ ッ ク 表 示 

グラ フィ ッ ク の ビデ オォ RAM (GRAM) は , 8000H-FFFFH に 割り 当て られ て いま す . 320 x 
200 の と き は 1 バイ ト に 2 ドッ ト , 640x200 の と き は 1 バイ ト に 4 ドッ ト 割 り 当 て られ ます . 図 7 
- 3 に 画面 上 の ドッ ト と GRAM の 対応 を 志 し ます が , これ を 見 て も わか る よう に , ある 行 の 右端 
と その 光 の 行 の 左端 と は 対応 する GRAM の アド レス が 連続 し て いま せん . GRAM の 割り 当て ら 
れ 方 が 不 連続 な の で す . BASIC の WIPE, CCLEAR な ど で は 連続 し て GRAM を アク セス し て い 
る た め (この ほう が プロ グラ ム も 簡単 )、 APPLE な ど と 同じ よう に すだれ の よ うな 消え 方 を する 
の PC。 

1 ドッ ト 


1 ュ ドット 1 


FFiOO|FFiO1lFF:02 
国 7-3 裸 準 モー ド (320X200) 時 の 画面 の ドッ ト と GRAM の アド レス の 対応 


カラ ー パ レッ ト 

6 章 で も 触れ まし た が , SMC-777 で は 通常 カラ テー ジェネ レー タ に よっ て 16 色 の 表示 を し て いま 
す が , カラ ー バ レッ ト を 取り つけ る と , 4096 色 か ら 16 色 選ん で 使え る よう に な り ま す . 表示 に 際 
し て カラ ー ジ ェ ネ レー タ を 使う か パレ ッ ト を 使う か は 1/0 ポー ト に より 選択 で きま す が , この 
選択 は キャ ラク タ と グラ フィ ックス で 独立 に 設定 で きる の で す 。 グラ フィ ックス の と ころ で も 述 
べ ま し た が , この パレ ッ ト ON ン ノ OFF は BASIC の CPALETTE,GPALETTE コマ ンド で で き 
ます し , 実は Logo に も 。 


CPALETTE 1 また は 0 
GPALETTE 1 また は 0 


と いう プリ ミ ラ 局 ン 。 プ が あ り 。 ノ パ レッ ト の ON プ OFEF が で き 9 
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(4 ) 割込み 


SMC-777 で は モー ド 1 の 割込み (割込み が か か っ た ら 単 に 38H 番地 が コー ル さ れる ) を 使い ま 
す . 割込み 源 と し て は , 60Hz 割込み (1 60 秒 ご と に か か る 割込み で 、BASIC の SOUND 命令 
は これ を 使っ て いる ) と , キー ボー ド が 押さ れ た と き の 割 込み 、 が あり ます . 

60Hz 割り 込み は , 21H ポー ト の LSB ( 最 下 位 ビ ッ ト ) に 10 を 書き 込む こと より , 
プル プ マ スク され ます . 


イネ ー 


キー ボー ド が 押さ れ た と き の 割 込み で は 1BH ポー ト の LSB に 1 また は 0 を 書き 込む こと で , 
割り 込み が か か る か 否 か を 選択 し ます . 出力 され た 割り 込み 要求 信号 は , CPU が キー ボー ド デ ー 
タ を 読み 込む と , その 80z 秒 後 に リセ ッ ト さ れ ま す . も っ と 速く り セ ッ ト し た い 場 合 に は , 1BH 
ポー ト の MSB (最上 位 ビ ッ ト ) に 1 を 書き 込め ば , その 約 30z 秒 後 に リセ ッ ト され ます . また , 
1BH ポー ト の ビッ ト 4 は 特別 な 意味 が あり ます か ら , 書き 込む と き は 0 に し て お いて くだ さい . 


( 5 ) SMC-70 と の 培い 


SMC-777 は ハー ド 的 に も SMC-70 と ほとん ど コ ン パ チ ブ ル に な っ て いま す . SMC-70 の CP ノ 
M の ディ スク を 差し 込め ば その まま SMC-777 で も CPM が 走る ほど で す . し か し , 変っ て いる 
点 も いく つか あり , その 主 な も の は 以下 の と お り で す . 


・ グ ラフ ィ ッ クス の 160X100,640X400 の モー ド が な く な っ た 


・ シ ャ ドウ ROM の ソケット に SMC-70 で は 32K バイ ト の も の も 差 せ た が , SMC-777 で は 16K 
の も の し か 差 せ な い 


・ カ レン ダー クロ ッ ク , ライ トペ ン ・ イ インター フェイス が な く な っ た 


( 6 ) その 他 


表 7-2 キー ステ ー タ ス の ポー ト (1BH) 
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と も に ON の と き 0 で OFF の と き 1 


表 7-3 ジョ イス ティ ッ ク の ボート (51H ボ ポー ト ) 


キー コー ド は 1AH か りら, キー ステ ー タ ス は 1BH( 表 7-2) か ら 読ま れ ま す . ま た , ジ ョ イス ティ ッ 
ク は 51H ポー ト に 割り 当て られ て いて , アク セ モス する と き は C レ ジス タ を 使う IN 命令 を 使い 
B レ ジス タ の ビッ ト 0 が 1 だ と カー ソル パドル と スペ ー ス バー また は ジョ イス ティ ッ ク 1 が, B 
レジ スタ の ビッ ト 0 が 0 だ と ジョ イス ティ ッ ク 2 が 選択 され ます ( 表 7 - 3). 


7-e 応用 周辺 機器 の 自作 


SMC-777 に は バス ライ ン を 外部 に 引き 出し て 使え る よう に , 1/O Expansion が 設け られ て い 
ます . し た が っ て , これ に 自作 の イン ター フェ イス を 接続 し , SMC-777 の 処理 対象 を 大 幅 に 広げ 
て や る こと も で きる わけ で す . この 節 で は , そう し た 自作 と いう 観点 か ら 考え , 近い 将来 パソ コ 
ン が HA (Home Automation) の 主役 に な る で あろ うこ と も 加味 し , 風呂 の 温度 モン サー の 製作 と 
SMC-777 で の 制御 を , 参考 の た め に 紹介 し て み ま す . 読者 諸兄 が 以下 の 説明 か ら , パソ コン に よ 
る 自作 機器 制御 の アイ デア な り と も 手 に 入れ て くだ され ば と 思い ます . 


(1) ハー ド 


I/O ポ ー ト の 割り 付け 

イン ター フェ イス の 拡張 に 当たっ て は , SMC-777 の 設計 上 , すでに 利用 され て いた り 利用 子 定 
の ある 1 プ O ポー ト の 使用 は 避け ね ば な り ま せん . 未 使用 の ポー ト は 66H-70H の みな の で , ここ 
を 利用 する こと に し ます . 


ー ミ スタ 

サー ミス タ と は , 様々 な 元素 を 組み 合わ せ て 高温 処理 し て 作ら れ た 半導体 で , 精密 温度 測定 や 
自動 温度 調整 器 , 電圧 制御 な ど 幅 広く 使わ れ て いる 半導体 素子 で す 。 図 7 - 4 に 示し た よう に , サ 
ー ミ スタ は 温度 が 高く な る に 従っ て 電気 抵抗 が 減少 する の で , サー ミス タ て 直列 に 適当 な 抵抗 を 
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接続 し て や る と , 温度 変化 に よる サー ミス タ の 抵抗 変化 を 電圧 変化 と し て 取り 出す こと が で きる 
よう に な り ま す . 
抵抗 


図 /.4 サー ミス タ の 温度 と 抵抗 


温度 セン サー の 構成 と 原理 

図 7-5 に 温度 セン サー の 構成 図 を 示し ます . 構 成 は , 温 度 セ ン サ ー 部 の その 出力 を 増幅 する Amp, 
電圧 を 読む AD コンバー タ , AD コン バー タ の 出力 を 保持 する ラッ チ 回 路 、 そ し て A ン D 変 
換 開始 信号 等 を コン トロ ー ル する , ステ ー タ スコ ント ロー ラ か ら 成 っ て いま す . 


E.0.C. 変換 終了 


さ -N 


V へ へ 山 


図 7-5 温度 セン サー の プ ブロック 図 


バス を 引き だ す 

SMC-777 か ら Z-80A の バス ライ ン を 取り 出す に は , 本 体 の ケー ス を 取り は ず し , 50 ピ ン の 1 ン 
O Expansion Connector (オス ) を 見 つけ 出し ます . 表 7 - 4 に 示し た の が 該当 コネ クタ の ピン ア 
サイ シン で ,。 こ こ で は フラ ッ ト ケ ー プ ブル を 使い 、。 バ スラ イン を 本 体外 部 に 引き 出し まし た . 
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表 7-4 1/O Expansion の ピン アサ イン 


温度 セン サ 回 路 

図 7 - 6 に 表示 し た も の が 温度 セン サー 用 イン ター フェ イス の 回 路 図 で す 、 チップ セレ クト 回 路 
は , 70H (AD コン バー タス ター ト 層 クリ ア ), 71H (ステ ー タ スリ ー ド )、72H (デー タリ ー ド ) 
を それ ぞ れ セレ クト する 回 路 で す . A ノ D 変換 回 路 は 、 基準 電 圧 を 発生 させ る AD581JH, 8 ビッ 
ト の AD コン バー タ (AD7574JN)、 ラッ チ (74LS373)。 その ほか これ ら を コン トロ ー ル する 回 
路 (74LS123。 74LS74 等 ) に より 構成 され て いま す . 増幅 回 路 の 方 は 、NE5538N と な っ て いま す . 


自作 の 温度 セン サー を SMC-777 に 接続 する 


( エ 3) ユ ーー ニ マ サー 届 


(エコ) メー= こ ・>wー-tu | | 


) い ニー ニ さ テー や の ワ ァ 


( エ 8 


チッ プ セ レク ト 回 路 : 
デニ タス ・ 
コロ ジン トロ ー ラ ) 3 


74LS155 : 


テー っ へ の いい ) ワウ アア 
いら 
リロ 


の ヽ この の に 選 て ) 


昌 度 セ ン サ ー の 回 路 図 


図 7-6 
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( 2 ) 温度 セン サー 用 プロ グラ ム 


。 ーーー オフ ロ セン サー -ーー 
MAIN 
MIPE : CONSOLE 49 : LOCATE (8,19) 
INPUT "オフ ロ ノ セ 9 テ イ オッ ント" 人 2 「」ASET% 
UIPE : CURSOR OFF 


FOR 1=6 TO 15 

DEF PALETTE 【,1,4,15-{ 
NEXT 
DEF PALETTE 9, 5,15, 6 
DEF PALETTE 1, 9, 9, 9 
DEF PALETTE 2,15。 9, 9 
DEF PALETTE 3 9533398 
DEF PALETTE 4,15,15,15 
DEF PALETTE 5, 9,14,14 
CPALETTE OFF 
GCLEAR 9 
GCOLOR 9,9,9 
GOSUB ※TEMPBAR 
GOSUB ※GLIN 
GOSUB ※MSG 
GOSUB ※BATH 
GO0SUB ※UTEIMP 
ik ニ ーー NARAN じ ンー ニ 


%TEMPBAR 
FOR 1=6 TO 15 
TX=Tx15+40 : TX1=Ix15+53 
BOXF(TX,35)-(TX1 ,45) , 1 
NEXT 
LINE(138 ,52)-(139 ,62) , 1 
LINE(278 ,52)-(278,62) , 1 
LINE(132,57)-(177,57 ) , 1 
LINE(229 ,57 ) -(276 ,57) , 1 
_RETURN 


*BATH 

DRAM *S1C1m113,199U5 ,4989 , 9 
DRAM * い 5 ,-49M5 , 9U-5 , 45U-99 , 9 " 
DRAM * い -5, 45M5 , 9 ^ 

DRAM * ぃ -2,2P4 ,1C3u3,5・ 

DRAU "UB8,9u-4,4P3,1" 
RETURN 


※MTEMP 
IMEM = 9 
GOSUB xMEASURE 
IF TMP<TMEM THEN xERBAR 
IIT=159-TMP※1 .5 
BOXF(61 , 159 )-(63, IIT),2 
IT2 = TMP/6+3 
DEE_ PCLETLE 2E 2 コス 
TIEM = TME 


応用 周辺 機器 の 自作 


Wi ーist 7 -1 


ト う 
に 
19』| 


899 
999 
210 
920 
239 
949 


TE% = TMp 
PRINT (29、29 ) TE% 


IF ASET% <= TE THEN 60SUB *MUSIC 


GOTO MTEMP 
FETURN 


\ERBAR 

IT = 159-TMP※1 .5 

IT1 = 159-TMEIM テ 1 .5 
BOXF(61 IT)-(63,IT1),5 
GOTO S19 


※GLIN 
BOXF (59,28 )-(65, 159 ) , 5 
BOXE (59,28 )-(65, 150 ) , 1 
CIRCLE (62.156),8。 1 
PAINT (63,155) , 2 , 1 
FOR IY=135 TO 49 STEP -15 
LINE(S56, 1Y )-(59, 1Y ) , 1 
LINE(65, ITY)-(68, 1Y) , 1 
NEXT 
CCOLOR 9 
FOR 1=17 TO S STEP -2 
N=N+19 
PRINT (5,I)jN 
NEXT 
RETURN 


MSG 

PRNT ECG3R30 肖 Se 

PRINT (153) 』" オット" ニョ ル " 
PRINT (26.3) 4 「 イ H AD 


PRINT 13.11.)32 フ H00 ノ もり テイ 4 


PRINT (S1,11 ) jASET% 
PRINT (15,8) j" ヌ ルイ" 
PRINT (33.8) "アァ リ ツイ " 
PRINT (24,7?) "テキ オン " 
PRINT (13,29)j' タ タイ マ / " 
PRINT (23..29): KM 
PRTNT (32.209* "CD チャス" 
RETURN 


ント 


969 
979 
989 
299 
1999 
1919 
1929 
1939 


MEASURE 
0UT &H79,9 
AA=INP(&H71 ) 
IF (&H1 AND A)=9 THEN 989 
B=INP(&H72 ) 
TA=255-B 
TMP=TA/2 .5-27 
RETURN 


1949 “ 


1959 
1969 
1979 
1989 
19909 


\MUSIC 

IF E0S=9 THEN RETURN 
SOUND “<8S1903L16G04C>P8 
RETURN 
”。 ーー-- PROGRAM END --- 


ハ 
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こ ヨル 2 ロ の ンカ 
削 癌 較 剛 | 届 司 
テキ オン 中 


風呂 の 温度 の 表示 


き て 、 イン ター フェ イス が で きた ら , 決 は プロ グラ ム を 作ら ね ば な り ませ ん . せっ か く グ ラフ 
ィ ッ クス 機能 の 豊富 な SMC-777 な の で すか ら , これ を 利用 し な い 手 は あり ませ ん . リス ト 7-1 が 
その プロ グラ ム で す . 実行 画面 の 左 の 温度 計 の 形 を し た 部 分 で 現在 の 湯 温 を アナ ログ 的 に 表示 し , 
右 下 の バス タプ (風呂 杜 の つも り だ , 文句 ある か !) の な か で は 温度 に よっ て お 湯 の 色 が 変化 し 
ます . また , バス タブ の 下 に は 現在 の 湯 温 を デジ タル 表示 する 部 分 も 加え ます ,. プロ グラ ム 各 プ 
ロッ ク の 概略 は , 以下 の と お り です. 


*MAIN ・ グ ラフ ィ ッ クス 画面 の アウ トラ イン の 設定 し ます 

* TEMPBAR : 温度 に よる , 風呂 の お 湯 の 変化 の モニ ター を 描き ます (実行 画面 右上 / 

* BATH ・ バ スタ プ ブ の 外形 を 描き ます 

*WTEMP : 測定 き され た 湯 温 を 温度 計 の バー に 示し , バス タブ の お 湯 の 色 や デジ タル 表示 


を 和 有 いま す 

*ERBAR  : 測 定 き され た 温度 が 前 回 の 測定 値 よ り 小 さい と き , 温度 計 の バー を 測定 値 まで 
消し ます 

*GLIN 。 : 温度 計 の 外形 を 描き ます 

* MEASURE : AD コン バー タ の コン トロ ー ル 及び 、 AD コン バー タ の 値 を CPU に 読み 
込ま せま す 


※MUSIC  : 温度 が 設定 値 以上 に 上 昇 し た と き , アラ ー ム を 鳴ら し て 警 告 し ます 


以上 が プロ グラ ム の 主 な 働き で す . この な か で 最も 重要 な 働き を する の が *MEASURE で , こ 
れ を 理解 し て お く と ほか の イン ター フェ イス 自作 の と き に も 役立つ と 思わ れる た め , 少々 詳し く 
説明 し て お きま す . まず , 970 行 は 70H ポー ト を セレ クト し , A/D コン バー タ に クリ ア と スタ ー 
ト パ ル ス を 出力 し ます . 決 の 980 行 で A ノ D 変換 が 終了 し た こと を 確認 する た め 71H ポー ト の デ 
ー ク を 変数 A に 読み 込み , 990 行 で 変数 A の LSB が 1 で あれ ば , A/D 変換 は 終了 し た こと に な 
り ます (変換 終了 が 得 ら れ な い 場 合 は 980 行 に 戻り ます ).1000 行 は A ノ D 変 換 さ れ た デー タ を 72H 
ポート か ら 変 数 B に 読み 込む も の で , 1010 行 , 1020 行 で 変数 B の 内 容 を 温度 に 変換 し て いま す . 


7 章 ハー ドウ ェ ア 
以上 が 温度 セン サー の 概略 で す が . ここ で は サー ミス タ の 抵抗 値 と 温度 の 補正 が 正確 に は され 


て いな いと いう こと と , サー ミス タ を 水 に 入れ る 場合 は 央 重 な 防水 が 必要 ど だ と いう こと を 記憶 し 
て お いて ぐだ さい 。 
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選 章 アフ アセンブラ と ら Sony Filer 


パソ コン に 何 か を や ら せ る と き , BASIC だ け で プロ グラ ム を 作っ て いて は , スピ ー ド に 関し て 
満足 な も の が 得 ら れ な いこ と が 多々 あり ます . また , BASIC で は 記述 不可 能 な こと も あり ます . 
そう いっ た と き に , 新た な コマ ンド な り 関 数 を 機械 語 で 作っ て BASIC を 撤 張 する こと が よく あり 
ます . この 章 で は この よう な BASIC を 拡張 する た め の 機 械 語 ル ー チ ナン に 限ら ず , SMC-777 で 機 
械 語 を 扱う こと 全般 に つい て , 解説 し て ゆき ます . 


B-1 アセ ンプ ブラ 


(1 ) 777 Assembler と は 


777 BASIC で は LINK コマ ンド を 使う こと に より コマ ンド の 拡張 が で きる の は 何 度 も 触れ た 
と お り で す . リン ク パ ペッ ケ ー ジ と し て 777 の シス テム ディ スク に は COPY . PAC, PIC . PAC, 


EFFECT . PAC の 3 つが 入っ て いま す が , 777 Assembler は こう いっ た リン ク パ ッ ケ ー ジ を 作る 
だ た め の ア セン プラ な の で す . 


ニー モニ ッ ク 

ノー スプ ログ ラム に は ザイ ログ ニー モニ ッ ク と も イン テル ニー モッ ク と も 似 て も 似つか な い 
ANN ( Assembler in Natural Notation ) 表記 と いう ソニ ー の オリ ジ ナ ル の ニー モニ ッ ク を 使 
いま す . ザイ ログ ニー モニ ッ ク と ANN 表 記 の 対応 表 を APPENDIX に 示し ます が , 主 な 規則 は 以 
下 の と お り で す . 


・ LD は = を 使っ て BASIC の 代入 文 の よう に 表記 する 
LD A, B ー a=b 
LD XX+d)、C つ (Gix+d) =c 
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・ 演 算 の 対応 
ADD 一 二 
SUUB 知 記 三 
AND … 
OReN=5 
XOR っ つ 
NOT っ 

・ 結 果 が フラ グ 以 外 に も 残る 演算 も , その レジ スタ に 対す る 代入 の よう に 表記 する 
XOR A ーa=a a 
ADD HL, SP 一 hl=hl 二 sp 
CP (HL) っ aー(hi) 


・ フ ラグ の 対応 

Carry っ @ 

Zero っ 0 

Plus 三 2 織 c 

Minus つっ ー 

PE (< 

PO つづ oO 
従っ て , 

ADC HL, BC 一 hl=hl+bc@ 
SCF ーー @=1 
CCF っ @ 


・ 絶 対 ジ ャ ンプ は ニテ ッ > 相対 ジャ ンプ は ー> で 表記 する 
JP LABEL っ = ッ label 
JP NC, LABELー =>label, @ 
JR Z, LABEL 一 一 >label, 0 
DJNZ LABEL 一 >label 
・CALL は [ , RET は ] て 表記 する 
CALL ABC っ …] abc 
RET PE 2 隔 e 
RST 8H っ ] 08 


擬似 命令 
777 Assembler で は , 実際 の 処理 の 前 に org, entry, start が , この 順 で どれ も 欠け ず に な く て 
は な り ま せん . その は ほか, 注意 を 要する 擬似 命令 に つい て 以下 に 説明 し ます . 


entry 
オペ ラン ド に , CALL で 呼び 出す と き に 使う コマ ンド 名 を 書く . その ルー チン の エン ト リボ 
イン ト に は , コマ ンド 名 を ラベ ル と し て 付け る . entry は その リン ク パ ッ ケ ー ジ 中 の エン トリ 
数 だ け 必 要 . 

start 
オペ ラン ド に , その リン ク パ ッ ケ ー ジ が リン ク さ れ た 直後 に 実行 すべ き コ マン ド 列 (スク . 
ー ト アッ プ コ マン ド ) を * で くく っ で て 書く. スタ ー ト アッ プ コ マン ド を 設定 し な いと き は 
オペ ラン ド を 付け ず , た だ start と 書く 〈. 

db 
使い 方 は お お むね 一 般 の アセ ンプ ラ と 同じ だ が "で くく っ た 文字 列 を オペ ラン ド と する こ 
と も で きる あだち る 仙 2 

db “Noriko Haratake", 0 


これ ら の ほか に 擬似 命令 と し て equ (ラベ ル の 定義 ), dw (16 ビ ッ ト 値 の 定義 ), ds (ロバ イト 
の 領域 確保 ),、 end が あり ます が , これ ら は 一 般 の アセ ンプ ラ と 同じ です. 


引数 
5 章 で も 書い た よう に , LINK で 拡張 する コマ ンド の 書式 は , 
CALL < コマ ンド 名 > (< 引数 1 >, < 引数 2 >…) 
ま : だ は 。 


_ < コ マン ド 名 > (< 引数 1 > < 引数 2 >…) 


で , も と も と 備わっ て いる コマ ンド と 同じ よう に 引数 を 持た せる こと が で きま す . 引数 を 持た な 
く て も も ちろ ん か まい ませ ん . 


引数 の 設定 は 擬似 命令 entry で 行ない ます . entry の 書式 は , 
entry < コマ ンド 名 > (< 引数 1 の 型 >、 < 引数 2 の 型 >…) 


で す . また , < 引数 の 型 > の 一 覧 を 表 8 - 1 に 示し ます . また これ ら を [ ] で 囲む こと で , そ 
の 引数 が 省略 可能 で ある こと を 示す こと が で きま す . 例え ば , CBS と いう コマ ンド に 2 つ 引 数 を 
持た せる と し て , 1 番目 は 整数 型 。 2 番目 は 文字 型 で 省略 可能 と する と , entry は , 
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entry cbs (int, [str]) 


どり まさ 
ADR INT と だ いた い 同 じ だ が 32768 て 65535 が 
ー32768ー1 に 変換 され る 
浮動 小数 点 型 
表 8-1 引数 の 型 の 書式 
、 : 渡さ れ た 引数 の 数 IX : 渡さ れ た 引数 の 型 テ ー ブ ル の 先頭 


HL : 引数 1 の 内 容 の 先頭 を さして いる 
DE : 引数 2 の 内 容 の 先頭 を さして いる 
BC : 引数 が 3 個 の と き : 
引数 3 の 内 容 の 先頭 を さして いる 
引数 が 4 個 以上 の と き : 
引数 3 以降 の 内 容 の 先頭 の テー ブル の 先頭 


引数 1 の 型 
引数 2 の 型 
引数 3 の 型 


型 テ ー ブ プル 


に だ うう 3 
引数 2 の 内 容 
ーー 


型 テ ー ブ プル の 値 と 型 と の 対応 は 


引数 3 の 内 容 
| So 
整数 弄 
= デコ 
トーーーー オ ン 


省略 され た 
図 8-1 拡張 コマ ンド に エン トリ し た と き の レ ジス タ の 内 容 


拡張 コマ ンド が CALL で 呼び 出さ れ た と き , レジ スタ に 入っ て いる 値 は 図 8 - 1+ の よう に な っ て 
いま す . 実際 の 引数 は entry に 書か れ て いる 型 と 同じ 型 で な く て も よく (本 来 BASIC の デー タ の 
型 と し て は adr, byt な ど は あり ませ ん ), 自動 的 に 型 変換 を し て くれ ます . この と き , どう し て 


15 つ 】 
いひ! 
1 うつ 】 


Oc1 才 び が セク アア 


も 変換 で き な い 場合 (文字 型 が 要求 きれ て いる の に 数 値 が 渡さ れ た と か , byt に 256 以上 が 渡さ 
れ た と か ) は , Type mismatch や Overflow な どの エラ ー と な り ま す . 

また entry に 書い て ある 型 と 同じ 型 の 変数 が 引数 と し て 渡さ れ た 場合 は , HL, DE、 BC な ど が 
指し 示す の は , その 変数 の 内 容 を その も の で すか ら , これ を 利用 し て 値 を 返す こと が で きま す . た 
だ し , この 場合 同じ 型 の と いう 制限 が あり ます か ら , 数 値 を 返す 場合 は 、entry の は うに は any で 
受け て お いて (IX 十 d) て 実数 型 , 整数 型 ど ちら の 変数 が 渡さ れ た か を 調べ , 最 後に 値 を 返す と き 適 
当 に 型 を 変換 し な けれ ば な ら ず , 結構 大 変 で す . 


ソー ス の 作成 

ソー スプ ログ ラム は BASIC の テキ スト と し て 作成 し ます . 基本 的 に 普通 の BASIC の テキ ス 
ト と 同じ よう に 入力 すれ ば いい の で す が , すべ て の 行 の 頭 に "(アポ スト ロフ ィ ) を つけ て 注釈 と 
し て 入力 し た 方 が 無難 で す ( 例 えば 0e00h は 0.h と な っ て し まう ). その は ほか 注意 すべ き 点 と し 
て 次 の よう な も の が 挙げ られ ます . 


・ 大 文字 と 小文字 
~ で くく っ て ある も の 以外 は 大 文字 , 小文字 は 全く 区 別 さ れ な い . 
・ ラ ベル 
100 文 字 以 内 の 英 数 字 の 列 で , 先頭 は 英字 で な けれ ば な ら な い . equ の 前 に 書く と き と , オペ 
ラン ド と する と き 以 外 (つま り そ の 場所 に ラベ ル を 付け る と き ) は , ラベ ル の うし ろ に : を 
付け な けれ ば な ら な い . 
・ 文 字 列 
文字 列 は ^ で 囲む が , * を 文字 列 に 含め た いと き は "を 2 つ 重 ね る . 
・ オ ペラ ンド 
普通 の オペ コー ド (オペ コー ド と オペ ラン ト が 明確 で は な い が ) に 対す る オペ ラン ド と し て 
は , 数 字 か ラベ ル し か 許さ れ な い . た と えば , 
CPTBF 
の 意味 で 
dB4 
と する の は 許さ れ な いし , 
hl 三 Ilabel 十 1 
と いう よう に 計算 式 を オペ ラン ド と する こと も で き な い . 文字 列 が オペ ラン ド と し て 許さ れ 
る の は start。 db の み で ある 。. 
・ 数 字 
2 進数 は うし ろ に b を , 16 進 数 は h を 付け る . 16 進 数 が 英字 で 始ま る と き は , ラベ ル と 区 別 
する た め 。 先頭 に 0 を つけ る . 


ト う 
( ざ 』| 
て っ 
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注釈 
行 の : 以降 は 注 徹 と し て 解釈 され る . 


ソー ス の 入力 が 終っ た ら 拡 張子 に ANN を 付け て ディ スク に セー ブ し ます が その と き SAVE 


/A を 使っ て アス キー 形式 で 行い ます . 


アセ ンプ ブル 


シス テム メニ ュー に 戻っ て ASSEM コ マン ド に より アセ ンプ ブル し ます . 


ASSEM < ファ イル 名 > 


と 入力 する わけ で す が , この と き フ ァイル 名 に 拡張 子 を 付け な いと , 拡張 子 と し て , ANN が 自 
動 的 に 補 わ れ ま す . これ で , 


<ASSEM に 与え た ファ イル 名 の プラ イマ リネ ー ム > .PAC 


と いう ファ イル 名 の リン ク パ ッ ケ ー ジ が , ソー ス の 入っ て いる ディ スク に 作ら れ ま す . 


2 


ひ ! 


アセ ンプ ブラ を 起動 する と き に ファ イル 名 の あと に ノエ L,/T エ 、/A の うち , いく つか を 付け る 
次 の よう に な り ま す . 


ロン 1 相 
PAC と 同時 に リス ティ ング ファ イル で ある . LST (オプ ジェ クト の リス ト の 右 に ソー ス を 
くっ つけ た も の ) が 作成 され ます . 
61 
PAC と 同時 に テス ト フ ァイル で ある . TST が 作成 され ます . . PAC に は 実際 に メモ リ ヘ へ 
ロー ド さ れる オプ ジェ クト の 前 に 余分 な も の が 13h バ イト つい て いる た め , Debugger で ロー 
ド し て デバ ッ グ する と き は , この テス ト フ ァイル を 用 いま す . 
・ グ A 
通常 リン ク パ ッ ケ ー ジ は , リン ク さ れる と き に リロ ケー ト さ れ て BASIC イ ンタ ー プ リタ の 
最後 に ロー ド さ れ ま す (これ を リロ ケー タプ ル ・ リ ンク パッ ケー ジフ ァイル と 呼び ます ).。 ノ 
A を 指定 する と ロー ド す る 位置 が 始め か ら 決 まっ て いる アプ ソリ ュー ト ・ リ ンク パッ ケー ジ 
ファ イル が 作成 され ます . アプ ソリ ュー ト ・ フ ァイル を 作成 する と き 以 外 は org で どう 指定 
し て も , 100h が オリ ジン に な っ て し まい ます . 


ノエ L, ノ エエ. ノ A の うち 複数 を 指定 する とき, た と えば リス ティ ング ファ イル と テス ト フ ァ イ 
ル を 同時 に 作成 し た い 場 合 は , 


ジン SR 本 ジジ 2 21E ング Eb 


の うち どれ を 用 いて も か まい ませ ん . 


その ほか の 注意 

当 刀 の こと で す が , 拡張 コマ ンド の 実行 を 終る と き は [ を 使い , 従っ て , スタ ッ ク の レベ ル 
が この と き 合 っ て いな けれ ば な り ま せん . リン ク パ ッ ケ ー ジ 内 で スタ ッ ク は 8 バイト (4 レベル) 
が 保証 され て いる の み で , これ 以上 スタ ッ ク を 使い た いと き は , 自分 で どう に か し な けれ ば な り 
ませ ん . 

通常 リン ク さ れる と き に は リン ク パ ッ ケ ー ジ が リロ ケー ト さ れる わけ で す が , この と き 、 ど う 
いう と ころ が 書き 換え られ て どう いう と ころ が 書き 換え られ な い の か , と いう の が 気 に な る と こ 
ろ で す . 書き 換え られ る の は equ で 宣言 され た ラベ ル 以 外 を 使っ て いる と ころ で ,。 こ うい っ た ラ 
ベル 以外 を 使っ て いる も の は , 


ーッ label ]label 
の ほか, 

hl 三 Iabel 
等 も 書き 換え られ ます . 


と ころ で , 機械 語 ル ー チ ン を 作る と き BASIC イン ター プリ タ 内 部 の ルー チン を 利用 する こと 
も 多々 あり ます . し か し , ソ ニー の 方 針 と し て イン ター プリ タ の 中 身 は ルー チン の エン トリ も ワー 
クエ リア も 変え る こと が ある そう な の で , あと あと の こと を 考え て 。 そ うい っ た も の は 使わ な い 
方 が 無難 で し ょ う . た だ し , シャ ドウ ROM に 関し て は ルー チン の エン トリ は 変え な いそ う で す 
(変え たる と ソニ ー の 人 も 困っ て し まう そう な ). 


( 2 ) 実行 例 
加算 


List 8-1 


條 。 

29 ” ASSEM & BASIC 

39 “" LINK "KASAN.PAC" 
49 “ 

59 DEF INT A-C 

69 A=127 

79 _KASAN(A,S11.B ) 

89 PRINT “127+511='jB 
299 END 


5】 
〇 1 
9』| 
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List 8-2 
109 る ? ニニ ニニ ニニ ニー ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニー ニニ ニニ ニニ ニニ ニニ 
29 “ Sample to explain the "ASSEM" , KASAN 
39 “ ? ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ 
49 「』 
59 “ Or9 199h 
69 “ en モロ ッ kasan( in も , in て , in セ ) 
79 “ ar も 
89 “ 
99 “kasan : a ニ ( de ) 
199 “ a=a+(h1 ) 
119 ( bc )=a 
129 “ de+ 
139 “ h1+ 
149 bc+ 
159 “ a ニ =( de ) 
169 a=a+(h1 )@ 
179 (bc )=a 
189 “ 肛 
199 “, 
299 “ end 


で は , 具体 的 に 知 い プロ グラ ム を 提示 し て , Assembler を 用 いて どの よう な こと を する の か を , 
順 を 追っ て 説明 し て ゆく こと に し まし ょ う .。 リス ト 8 - 1 に BASIC の メイ ン ル ー チ ン , リス ト 8- 
2 に サ プ ブルー チン を ANN 表記 で 書い た ソー スプ ログ ラム を 提示 し ます . 実際 の プロ グラ ム の 手 
順 で は , 全体 の 構成 を 決め た あと に まず リス ト 8 - 2 を 入力 し , エディ ッ ト モ ー ド で デバ ッ ク を 洒 
ませ た あと に , 


SAVE AKASAN . ANN” 


と し て ソー スプ ログ ラム を ディ スク に 格納 し , その 後に シス テム メニ ュー に 戻し , カー ソル バド 
ル で 。 


ASSEM] [KASAN . ANN 


を それ ぞ れ 選択 し て [| を 押し ます (も ちろ ん キー ボー ド か ら 直 接 入 力 し て も よい が , 手間 が か か 
り ます). アセ ンプ ル 中 は , 


PASS 1 
PASS II 


と 表示 され , アセ ンプ ブル の 終了 を 知ら せる , 


error : 0 


Hit any key to continue ………… 


8-1 アモ ンプ ラ 


で 終り ます . この と き ソ ー ス プロ グラ ム に エラ ー が ある と , 順次 エラ ー メ ッ セ ー ジ が 表示 され , 
最後 に エラ ー が 合計 いく つ あ っ た か まで 表示 され る の で , も う 一 度 BASIC 上 に ロー ド し て , デバ 
ッ グ し て か ら 上 記 の 手順 を くり 返す こと に な り ま す . 

アセ ンプ ブル 終了 後 , 再び BASIC を 起動 させ て メイ ン ル ー チ ン を 入力 し , バグ が な いこ と を 確認 
し た な みあ 


LINK “KASAN" 


で 機械 語 サ プル ー チ ン と メイ ン ル ー チ ン が リン ク し , プロ グラ ム が 走り ます .、 まァ , プロ グラ ム 
を 実行 し て みた ら ,。 し ょ ー も な いこ と を し て や が る , と お 思い に な る 方 も 多い で し ょ う . し か し , 
これ も 勉強 の うち で し て , Assembler に 慣れ る た め の 大 切な 要素 が 含ま れ て いる の で す . リス ト 8 
- 1 の 行 番号 70 を 見 て くだ さい . 


70 KASAN (A, 511, B) 


アン ダー バー は 何 度 も 出 て きた よう に CALL と 同じ で , 拡張 コマ ンド を 実行 する た め の 命令 で 
す が , ここ で は A の 値 と 511 を サ プ ル ー チ ン に 引き 渡し , か つ B に 対し て サブルーチン か ら メ イン 
ルー チン へ と 値 を 引き 渡し て いま す . 実は こう し た 値 の 引き 渡し 方 法 の 充実 が 777 Assembler の 
特長 と な っ て お り , 機械 語 サ プ ブルー チン の 使い 勝手 を 高め て いる 理由 で も あり ます . 


ハエ が 飛ぶ 

実行 例 に 足し 算 な ん か 使い や が っ て , と 思っ て お られ る 方 々 の た め に , 機械 語 サ プル ー チ ン を 
使う と 結構 いろ ん な 事 が で きる の だ と いう 一 端 を , 例 を 用 いて 紹介 し て み ま し ょ う . 特に ゲー ム 
プロ グラ ム 等 に 有効 な 手法 で す の で , ちょ っ と 引 い Assembler を よく 呑み こみ , 積極 的 に 活用 し 
て くだ さい . まず , メイ ン ル ー チ ン を リス ト 8 - 3 に , また 拡張 コマ ンド FLYMOVE を リス ト 8 -4 
に 示し ます . アセ ンプ ル か ら LINK に か け て の 手順 は 前 述 の と お り で す の で , さっ そく 入力 し て 
みて くだ さい . 


に 8-3 
コン 

29 ” ASSEM & BASIC (2) 

39 “ 

49 " LINK "PPT.PAC* 

59 DEF INT A-Z 


69  GCLEAR 3 : CCLEAR : CURSOR OFF 
79 FOR Y=9 TO 23 


89 FOR X=159 TO 9 STEP -1 


29 -FLYMOVE(X,Y,1 ) 

199 FOR IT=9 TO 19 : NEXT 
119 _FLYMOVE(X。Y,8 ) 

129 NEXT X 

139 NEXT Y 


149 UMIPE 
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List 8-4 

109 いい ーーー イー トー ドー ネー トー ネー ナー トー ニャ ー バ ーー トー トー マー バー ルート ーー エー レー キー て ー キ ーー シー テー バー バー トー バー トー ヤー ミー バー ター ネー ベー ニー ニー トー ネー ネー た ーー エー) 
守 Sample to explain the "ASSENM"#2。 ff] ymove 
う H トー テー ナー イー テー トー トー トー レー トー トー トー バー ナー テー サー キー ナー キー ナー キー ミー イー バー トー ネー ネー シテ ーー ネー ネー を ー キ ー ャ ーーー レ ーー ニー ヤー トー テー キー ボー トー トー イーー レ ー ャ ーー 
49 “ 

59 “ OFr9 199h 
69 “ en キッ f1 ymoue( in も, 1n モ 。 1n も ) 
79 “ きも ar 

89 ji 

99 "flymoue: a=(bc ) 

199 “ ( pnum )=a 

119 “ c=(h1 ) 

123 h1+ 

139 “ b=(h1 ) 

149 “ a ニ ( de ) 

159 “ ] =a 

169 “ de+ 

179 “ a ニ ( de ) 

189 “ h=a 

199 “ h] =h1 +h1 

299 “ h1=h1+h1 

219 “ h1 =h1 +h1 

229 “ h1 =h1 +h1 

239 “ h1 =hl +h1 

249 “ に に 

259 “ d=h 

269 “ h1 =h1 +h1 

279 “ h1 =hl +h1 

289 “ h] =hr+de 

299 「 h1 =hl +bc 

399 “ bc=8999h 

319 “ h1 =h1+bc 

329 “ ( vdr )=h] 

339 “ a ニ =( pnum ) 

349 “ de=gpa1 

359 “ a-1 

369 “ ー>pp せ 1 ,9 

379 de=gpa モ 2 

389 “ aー-2 

399 “ ー>ppt1 。9 

499 de=gpat9 

419 "ppt1: h=S 

429 “ppt3: | 

439 “ h] =(vdr ) 

449 “ b=1 

459 “ c=h 

469 “ 1=4 

479 “pp て 2: a=( de ) 

489 “ p(c)=a 

499 “ た イッ 「 

599 “ d=c 

519 e=b 

529 “ de+ 

539 “ D 三 き 

549 “ c=d 

559 “ de 提 

569 “ de+ 

579 “ | 

589 “ ー>ppt2,"9 


Oc は ンジ 


599 “ h1 =( vdr ) 

699 “ bc=10999h 

619 “ h1 =hl +bc 

629 “ ( vdr ) =h]1 

639 “ h1 = 音 

649 “ h- 

659 ^“ ー>ppt3,” 9 

669 “ [ 

679 “pnum: db 9 

689 “Cdr: d ぃ 9 

699 “? 

799 “gpat9: db 33h , 33h , 33h , 33h 
719 “ db 33h, 33h , 33h , 33h 
729 “ db 33h, 33h , 33h , 33h 
739 “ db 33h, 33h, 33h , 33h 
749 “ db 33h, 33h, 33h , 33h 
759 “ db 33h, 33h , 33h , 33h 
769 “ db 33h, 33h , 33h , 33h 
779 “ db 33h, 33h, 33h , 33h 
789 “gpat1 : db 33h, 33h, 33h, 9f3h 
799 “ db 33h, 33h, 9ffh, 9ffh 
899 “ db 39h, 3fh, 9ffh,9ffh 
819 “ db 4h, 8h, 88h, 33h 
829 “ db 49h, 3h, 88h, 88h 
839 “ db 33h, 3h, 38h, 83h 
849 “ db 9h, 39h, 33h, 33h 
859 “ db 33h ,。 39h, 33h, 33h 
869 "gpa セ 2: db 9,9,9,9 

879 “ db 9,9,9,9 

889 “ db 9,9,9,9 

899 “ db 9.9,9,9 

999 “ db 9,9,9,9 

919 “ db 9,.9,9,9 

929 “ db 9.9,9,9 

939 “ db 9.9,9,9 

949 の 


で は , 説明 を 加え まし ょ う . この プロ グラ ム は , サ プ ル ー チ ン 名 が 示し て いる よう に , ハエ の 
飛行 を 表現 する も の で す . メイ ン ル ー チ ン は , サ プ ル ー チ ン の 持っ て いる ハエ の パタ ー ン を 右 か 
ら 左 に 移動 し , ボー ダー エリ ア に つき あたっ た ら Y 軸 を 8 ドッ ト 分 下げ て 再び 同じ パタ ー ン で 移 
動き させ る 役割 り を 負っ て いま す . また サ プ ブルー チン の 方 は GRAM 上 に x, y で 指定 され た 位置 に , 
指定 され た 8X 8 ドッ ト の パタ ー ン を 書き 込む も の で す . 


90 一 180 : 引 数 x,y,h の 読込 み 

190 一 320 : GRAM の アド レス の 算出 

330 一 400 : 指定 パタ ー ン 番号 か ら , パタ ー ン の 入っ て いる アド レス の 算出 
410 一 650 : パタ ー ン を GRAM に 書き 込む 


と いう の が 拡張 コマ ンド の 主 な 概略 で す が , ハー ドウ ェ ア の 知識 が 必要 な た め 7 章 に あら か じ め 
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目 を 通し て お く と わか り 易 いと 思い ます . ハエ の パタ ー ン は 図 8 - 2 に 示し た よう な も の で , 
GRAM 上 に 引数 x、y で 指定 され た 位置 に N で 指定 され た パタ ー ン で 書き 込ま れ ま す . この と 
き , x は 双 座 標 を 指定 し て お り 範囲 は 0 -156 ま で の 整数 で , 1 ステッ プ が グラ フィ ックス の 2 ドッ 
ト 相当 . y は Y 座 標 を 指定 し , 0 -24 ま で の 整数 で ,。 1 ステッ プ が 8 ドッ ト 相 当 と な り ま す . N 
は GRAM 上 に 書き 込む パタ ー ン の 番号 で , 0 一 2 まで の 整数 で 、。 この パタ ー ン で 言う と, 

N= 0 : 水色 の み 

N = 1 : ハエ の み 

N= 2 : 黒 の み 


と な っ て お り , ハエ が 羽 を 動か し な が ら 画 面 上 を 飛ん で いる よう に 見 せる 役割 り を 担っ て いま す . 
また , この プロ グラ ム で 用 いた 座標 で は , GRAM の アド レス と の 関係 は , 


GRAM アド レス ニ YX160 十 X 十 8000H 


1 1 1 
y 軸 x 軸 GRAM の 初期 アド レス 


を 用 いて 座標 変換 を し て いま す . 


3…… 水 色 (バッ ク ) 
選 記 OKSp 黒 

い 記 8 so くく を 

集 茶茶 F…… 灰 


茶茶 3 
茶 茶 


oO の の の ょ の 〇 の の の 
oO の の 〇 の の の の の 
の の の OO@ の OO の 
oO oO oO の O 0 の 
co oO OO OO OO イロ の 
oO の OO 0O の 本 
oO の OO Oo の イイ の 


3 
3 
3 
0 
4 
3 
0 
3 


図 8-2 ハエ (GPAT 1 ) の パタ ー ン 
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ハエ が 飛ぶ 


8-?P ロロ コー ル 


SMC-777 で は , シス テム 内 部 (特に 1/O 関係 ) の ルー チン が 5 番地 及び 8 番地 へ の DOS コ ー 
ル と し て 公開 され て いて , みず か ら の 手 で リン ク パ ッ ケ ー ジ を 作る よう な 場合 に 非常 に 役に立ち 
ます . この Sony Filer の 特徴 で ある 5 番地 コー ル , 8 番地 コー ル を 十分 に 有効 活用 する こと が で 
きれ ば , いま まで の パソ コン と は ひと 味 違 っ た こと も で きる よう に な り ま す . た だ し , こう し た 


( 1 ) な ぜ DOS コ ー ル な の か 


今 」。BASIC の リン ク パ ッ ケ ー ジ を 自分 で 作ら な けれ ば な ら な いと 仮定 し , か つ そ の リン ク パ ッ 
ケー ジ の な か で は デー タ を キー ボー ド か ら 入 力 し た り , 画面 に 何 か を 入力 し た り デ ィ ス ク を 読ん 
だ り し な けれ ば な ら な いと し ます . こう いっ た 入出 力 関係 の ルー チン (1/0 ルー チン ) を 自分 で 
書 こ うと する な ら ハ ー ド ウェ ア の 知識 が 必要 で すし , また 一 般 的 に 考え れ ば 非常 に 厄介 な こと で 
も あり ます . 

と ころ で BASIC に は INPUT や PRINT や SAVE な ど が ある わけ で す が ら , BASIC 自体 に 
と っ て も 1 プ O ルー チン は 必要 な も の で あり , また Logo や MEMO に つい て も 同様 の こと が 言え 
る の で す . そこ で 1/O ルー チン や その ほか の よく 使い そう な ルー チン を メモ リ に 常駐 させ て お 
き , それ を 皆 で 使っ て は どう か , と いう 考え 方 が 出 て きま す . そう する と , キー 入力 の 方 法 や フ 
ァイル の 構造 な ど が 統一 さき され る と いう 利益 も 生ま れ て きま す . この よう な こと を 前 提 に , SMC- 
777 に は 5 番地 コー ル と 8 番地 コー ル (この 2 つ を まとめ て DOS コー ル と 呼ぶ ) と いう も の が 用 
意 さ れ て お り , これ ら が 1/O 関係 や 、 その ほか よく 必要 と な る よう な こと を 行っ て くれ ます ( 取 
扱 説明 書 の 60 真 以降 参照 ). た と えば C レ ジス タ に 2 を 入れ て 5 番地 を コー ル す る と , E レ ジス タ 
の 値 の キャ ラク タコ ー ド を 持つ 文字 を 画面 に 出力 し て くれ ます し , C レ ジス タ に 5 を 入れ て コー 
ル す る と , 同様 に プリ ンタ に 出力 し て くれ ます . 


5 番地 コー ル , 8 番地 コー ル は , 必要 に 応じ て 条件 を 整え た あと , 使い た い 機 能 の 番号 (ファ 
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ンク ショ ン ナ ン バ ー) を C レ ジス タ に 入れ て 呼ぶ よう に 定め られ て いま す . そし て , これ ら の ル 
ー チ ン で は レジ スタ は 全く 保 在 され ませ ん か ら , 壊さ れ て は 困る レジ スタ は 前 も っ て 退避 させ て 
お く 必要 が あり ます . 

それ で は 実際 に DOS コー ル を 使っ た リン ク パ ッ ケ ー ジ を 2 つ , 紹介 し て み ま し ょ う . 


( 2 ) サン プル ・ プ ログ ラム 


List 8-5 
109 る (ーーー スー バー バー トー ニー バー バー バト ーーー シ ー そ ー バ テー バー ナー サー シー テー ネー ネー ズー ーー ジーー レ ーーー ニー シー バー チー トー キー トー トー テーパ ーー シー バー ベー テー イー テー バーー ネ キー パーー に ビー ュ ーー) 
29 「』 Sampls to explain "DOS CALL" 
3 ど 9 エー ネー ナー フー ネー ジー ネー サー ネー ナー バー テー ネー パー マー テー バー ツー サー マー バー オー キー エー キー エー ネー キー トー キー キー サー ネー ホー トー ネー キー ホー キー キー トー サー ユー ナー エー ミー テー ルー 
49 
5S9 “ OF9 199h 
69 “ ent ロ ッ greatSmc 
79 “ tar セ 
89 
99 "greatsmc : e=14 5 CLR 
199 “ c ニ 2 
119 “ ]"98 
1 の 20 舞 間 2 
139 “ d=32 ju1dth check 
14d “ c=21 
159 “ ]"98 
169 “ a ニ ai a 9 
179 “ ー->grlabe11.9 
189 “ 1=8 
199 “ ->grlabe12 
299 "grlabe1l1:1=28 
219 "grlabe12:h=12 
229 ? d=9 jlocate 
239 “ c=21 
249 “ ]^ 98 
259 「』 
269 “ de=g し St し in9 
279 “ C ニ 9? ? PF1in ou 七 a 5 て Fing 
289 ]" 98 
299 “ [ 
399 
319 "grstringidb "SMC-777 is excellent!!",9 
329 「 
339 “ end 

List 8-6 

1 ”) ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニー 
29 「』 "type ” to printer, | モッ Pe 
3 ぼ 9 ” ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ 
49 「: 
59 “ org 199h 
69 “ en モレ ッ ] type( str ) 
79 “ tar セ 


1 
い 
15) 


89 
29 
199 
119 
129 
139 
149 
159 
169 
179 
189 
199 
299 
219 
229 
239 
240 
259 
269 
279 
289 
2929 
399 
319 
329 
339 
349 
359 
369 
379 
389 
329 
499 
419 
429 
439 
449 
459 
469 
479 
489 
499 
599 
っ 19 
っ 29g 
539 
549 
12 
っ 69 
っ 7 
っ 8@g 
5929 
699 
619 
629 
639 
649 
659 


フ 


す 
^ bdo ら 5 


ク 


N ささ ささ NN NN NN NN ヽ N ヽ 


N NRN 、N 


e@ ビ OF 


す 


~ ] topnorm: 


h] =995ch 

( h1 ) =9 

h]+ 

de sh] 

て (de+ )=(h]+)) 


ー>1topnorm,” 9 
a=109 
Jerror 


de=9989h 
c=26 
]bqdos= 


8-2 DOS コ ー ル 


ーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーー ニ ーーーーーーーー 


? =et 和 cb 


jopen file 


ij 寺 、]e not 和 †ound 


jopen normally 
je DMA area 


^] て] oop2: 


^ 1 て loop1 : 


de=995ch 
c=20 
]Jbdos 


8 十 
ー>] tcr1T,9 


h1 =9989h 
b=89 ト 


a-1bF. 

ー>1 tend,9 
h ] = 

井 ニ h ] 


1tnkeyin ia=(h1 ) 


aー-1ah 
ー>1 tend,9 
に 1 


srFead dig=k 


? Ceturn i 人 年 eof 


3d ュ Cec て key 1nDG て 


ichr ま ( 1bh )=ESC 
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669 “ 
679 
689 “ 
699 「『 
ィ 799 “ 
719 “ 
729 「 
739 “ 


7S59 


Cc=5 ? Print 中 1 
Jbdos 

h] = 

bc= 昔 

h1+ 

“>1 モ 1 oop1 

ー>1 モ 1] oop2 


749 1tend: Dc ニ 柱 


h]1 = 


769 1tcr1f: e=13 jCR 


779 

ィ 789 “ 

799 “ 

899 “ 

819 “ 

829 “ 

839 
849 


リス ト 8-5 は 画面 を 消し て , その 中 央 に 「 SMC-777 is excellent ! 


c= う 

]*98 

e=19 国選 
c ニ 5 

] "98 

[ 


end 


! 」 と 表示 する リン グッ 


ケー ジ の ソー スリ スト で す . 「_ GREATSMC 」 を 実行 し ます と , 画面 が 横 80 桁 で も 40 桁 で も 中 


央 に 「 SMC-777 is excellent ! ! 」 と 表示 され ます . 要点 を 説明 し て ゆき まし ょ う . 
90 一 110 : 画面 を 消し ます . |CTRL 填 |CLR | の キャ ラ クタ コー ド は 14 で す . 


130 一 150 : 


画面 の 桁 数 を 調べ て いま す . 80 行 の と き は Acc に 00 が , 40 行 の と き は 00 以 外 が 入 
っ て 戻っ て きま す . 8 番地 コー ル の 21 番 は サプナ ン バ ー と し て D レ ジス タ に も 値 
を 設定 し 。 C て レジ スタ と D レ ジス タ の 値 で 機能 が 決り ます . 


160 一 240 : 80 行 の と き は (28, 12) に , 40 行 の と き は (8, 12) に カー ソル を 移動 きせ ま 


260 一 280 : 


す . 

カー ソル の 位置 か ら 「 SMC-777 is excellent ! ! 」 と 表示 し ます . 8 番地 コー 
ル の 9 番 は DE レジ スタ の 指す アド レス か ら 00 が 見 つか る まで を 表示 し ます . そ 
の た め 310 行 の メッ セー ジ の 最後 に , 0 が 付い て いる の で す . 


リス ト 8- 6 は TYPE と 同じ こと を プリ ンタ へ 行う , いわ ば LTYPE と 呼べ る も の で す . _ 
LTYPE (< ファ イル 名 >) で ,。 その ファ イル を アス キー ファ イル と し て プリ ンタ へ 出力 し ます . た 
だ し ここ て で 指定 する < フ ァイル 名 〉 は , BASIC で 通常 使う ファ イル 名 と 少し 異 っ て いま す . まず 
プラ イマ リー ネー ム は 必ず 8 文字 で な けれ ば な ら ず (8 文字 未満 の と を き は うし ろ に スペ ー ス を 加 
えて 8 文字 に し ます ) そ の つぎ に ピリ オド を 入れ ず に 拡張 子 を 必ず 3 文字 書き ます . そし て 共 文 字 
は 大 文字 で な けれ ば な り ま せん . 例え ば *LTYPE.ANN” は LTYPE_. ,。 ANN? (は 
スペ ー ス の し る し ) と し ます . BASIC で 普通 に 使う ファ イル 名 で 指定 し よう と する と , プロ グラ 
ム が この 3 倍 以上 に な っ て し まい , 主 な 目的 で ある DOS コー ル の 説明 に は 若干 不適 当 と な る と 
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考え て こう し て いま す . プロ グラ ム の 要点 を 説明 し まし ょ う . 


160 一 260 : 


280 一 300 ・ 


360 一 380 ・ 


440 一 460 : 


500 一 710 


740 一 820 : 


引数 と し て 与え られ た ファ イル 名 を FCB に 書き 込み ます . こ こ で 言う FCB と は 
Sony Filer が ファ イル 名 を 扱う と き に 使う 33 バ イト の ワー クエ リア の よう な も の 
で , こ の プロ グラ ム は 005CH 番 地 か ら 設定 し て いま す . ファ イル を 読み 込む と き 
に FCB に 対し て し な けれ ば な ら な いこ と は , 1 バイ ト 目 を 00 に し , 2 バイ ト 目 か 
ら 9 バイ ト 目 に ファ イル の プラ イマ リー ネー ム を 書き 込む こと と , 10 バ イト 目 か 
ら 12 バ イト 目 に 拡張 子 を 書き 込み 、 13 バ イト 目 に 00H を 書き 込む こと で す . 
ファ イル を オー プン し ます . DE に は FCB の 先頭 アド レス を 入れ ます . 160-260 
行 で 書き 込ん た 名 前 の ファ イル が 見 つか ら な か っ た と き は FFH が , 正常 に オー 
ブン で き 守 た は 00H が Acc に 入り ます . 

Sony Filer で は ディ スク の 読み 書き を 128 バイ ト ご と に 行い ます が , 読み 書き 
に 使う バッ ファ (DMA エリ ア と 呼び ます ) を 0080H 番 地 か ら 128 バ イト に 設定 し 
て いま す . ディ スク か ら 読 み 込 むと き は この バッ ファ に ディ スク か ら 読 ん だ も の 
が 書き 込ま れ , 書き 込む と き は この バッ ファ の 内 容 が ディ スク に 書き 込ま れ ま す . 
ディ スク か ら 1 レ コー ド (128 バ イト ) 読み 込み ます . その 際 自 動 的 に さき に 読み 
込ん を だ レコ ー ド の 湊 の レコ ー ド を 読み 込ん で くれ ます . も う 読 み 込 むし コード が 
な か っ た と き は FFH が , 正常 に 読み 込め た と き は 00H が Acc に 入り ます . 


: 0080 番 地 か ら 128 バ イト を プリ ンタ に 出力 し ます . 


550 一 590 行 で [ESC| キー が 押さ きれ て いた ら 処理 を 中 断 す る よう に し て あり ます . 
550 一 570 行 で キー が 押さ れ た か どう か を 調べ , 押さ れ て いた ら 580-590 行 で それ 
が ESC か どう か 見 て いま す . た だ し [ESC| を 押し て も 止ま る まで 時 間 が か か り 
ます し , 止ま ら な いこ と も あり ます . また 630-640 行 で ファ イル の 終り の し る し 
で ある 1 A 廿 を 検出 し た ら 処理 を 終る あ よ うに し て あり ます . アス キー ファ イル は 
必ず この 1 AH で 終っ て いま すか ら , 本 来 470-480 行 の 読み 込む レコ ー ド が な か 
っ た と き の 処 置 は し な く て も よい の で す が , 間違っ て (この プロ グラ ム を いじ め 
る た め に ? ) アス キー ファ イル で な いも の に 対し て LTYPE を 実行 し て し まっ た 
と きのこ と 和 を 考 ぶ で =2(0G あ おり 詩 

処理 を 終る に 当たっ て CR/LF を 出力 し て いま す . 740750 行 は 530540 行 の 
PUSH の 埋め 合わ せ を する た め の も の で す . 


ちな み に フ ァイル を 読み 込ん を だ だ け の と き は , それ を クロ ー ズ する 必要 は な い の で , この プロ 
グラ ム で も し で いま せん . 
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( 3 ) 5 番地 と 8 番地 の 違い 


と ころ で , DOS コー ル に 5 番地 コー ル と 8 番地 コー ル の 2 種類 が ある の は な ぜ で し ょ うか . ま 
た 5 番地 コー ル と 8 番地 コー ル の 0 番 か ら 11 番 まで は 重複 し て いる よう . に 見 えま す が , これ は ど 
うい うわ け な の で し ょ うか . 詳細 は 避け ます が , この 2 つ は で きた 背景 が 違う の で す . そし て 双 
方 の 0 一 11 番 の 本 体 (本 当 に 仕事 を し て いる と ころ ) は シャ ドウ ROM 内 に あり ます が , 正 真 正 
銘 同 じ も の で す . 7 番 と 10 番 は 双方 で 機能 が 違い ます が , これ は その 本 体 が どこ か ら 呼 ば れ た か 
で 機能 を 変え て いる の で す . し た が っ て , 8 番地 を コー ル す る と き RST 8 (ANN で は ] "08) 
を 使え ば 1 バイ ト で 済み ます し 実行 も 速い で すか ら , 5 番地 で も 8 番地 で も よい 場合 は 8 番地 を 
コーSA2E た は ほう が よ wW で も し ひょう 。 

DOS コー ル は リン ク パ ッ ケ ー ジ を 作る と き の 便宜 を 図る た め だ け の も の で は あり ませ ん が , 
や は り 一 般 の ユー ザー に と っ て は , これ が 大 き な 意 味 を 持つ と 思い ます . 従来 の 多く の BASIC マ 
シー ン で は , 1 ノ 0 関係 に 限ら ず シ ステ ム 内 部 の ルー チン は 全く メー カー か ら は 公開 され ませ ん 
で し た . で すか ら 1/0 関係 を 含む 機械 語 ル ー チ ン を 作る に は , シス テム を 自分 で 解読 する か , す 
べ て 自分 で 作る か , さも な くば 誰か が 解読 し て くれ る の を 待つ し か あり ませ ん で し た . 前 者 の 2 
つ に は 非常 な まで の 苦労 を 要 し ます (これ が うれ し いと いう 人 も , いる に は いま す が ). そう し た 
面 で 見 た 場合 に は , SMC-777 に お ける この よう な 設計 思想 は 非常 に ーー ザー ライ ク な も の で あ 
り , マニ ア の 高度 な 期待 に 答え て いる も の と 言え る で し ょ う . 


8-3 Sony Filer の コマ ンド を 作る 
( 1 ) Sony Filer と は 


SMC-777 は DOS と し て Sony Filer と いう オリ ジ ナ ル の も の を 採用 し て いま す . これ は BD 
OS コー ル ( 先 の 5 番地 コー ル ) の レベ ル で CPM Version1.4 と 多く の 互換 性 を 持ち も ,。 ファ イル 
構造 に 関し て は SMC-70 の CP/M Version2.2 と 完全 な 互換 性 が あり ます . つま り SMC-70 の 
ファ イル は 全く 問題 な く 読む こと が で きる の で す . 

Sony Filer の メモ リマ ッ プ は お お ま か に いっ て 図 8-2 の よう に な っ て いま す . 0000Hー00 
FFH, FC00H-FFFFH まで は シス テム の ワー クエ リア , E900HーFBFEFH は ファ イル の 管理 や 
画面 , キ ー ボ ポー ド , プリ ンタ と の 入出 力 を 行う サブ ルー チン が 入っ て いる 部 分 で DOS と 呼ば れ 
ます . この DOS の 部 分 は メモ リ に 常駐 し て いて , Sony Filer が コー ルド スタ ー ト し た と き ( り リ 
セッ ト さ れ た と き ) 読み 込ま れる だ け で す の て で , 不用 意 に 変更 し て は な り ま せん . CPM の 
BDOS と BIOS を 併せ た よう な 機能 を も つと ころ な の で す . UIF と いう の は User Interface の 
略 で ,、 シ ステ ム メ ニュ ー の 処理 を 行ない ます . CP/M の CCP ( Console Command Processor ) 
に あたる も の で す . UIF の 部 分 は シス テム メニ ュー に 戻る と き (ウォ ー ム スタ ー ト ) ディ スク か 
ら 読み 込ま れ ま すか ら 壊 し て も か まい ませ ん . 
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シス テム エリ ア 


シス テム エリ ア 


図 8-3 Sony Filer の メモ リマ ッ プ 


ユー ザー エリ ア 


FFFFH 


シス メ テ ム メニ ュー の 左 , つま り 「 Command 」 と いう 表示 の 下 に 出 て くる も の を ファ イラ ー 
の コマ ンド と 呼び ます . この な か で , TYPE, PRINT, ERASE, RENAME の 4 つ は UIF の と 
ころ に その 処理 ルー チン が ある ビル トイ ンコ マン ド で , その 他 は 実行 する 際 デ ィ ス ク か ら 読 み 込 
まれ る トラ ンジ ェ ン トコ マン ド で す . ト ラン ジェ ント コマ ンド が 選択 され る と UIF は それ を 0100 
H 番 地 以降 に 読み 込み , 読み 込み が 終る と 0100H 番 地 ヘ へ ジャ ンプ し ます . 

CP/M で も 同様 で す が Sony Filer は 1 論理 セク タ が 128 バ イト で す (ディ スク が 物理 的 に ど 
う で あろ うと , DOS コー ル の ディ スク アク セス で は 128 バ イト が 最小 単位 て で ある と いう こと ). そ 
し て ファ イル が 正確 に 何 バ イト の 大 き さ か が 格納 され る よう な 特別 な 領 寺 は な く , 基本 的 に ファ 
イル は 128 バ イト 単位 の 大 き さ で す . そ こ て 正 確 に 何 バ イト か を 示し た い 場 合 は ファ イル の な か に 
その 情報 が 入っ て いな けれ ば な り ま せん . アス キー ファ イル の 場合 は 最後 に 1AH の キャ ラク タ 
を 書き 込む こと で それ を 行なっ て いま す . トラ ンジ ェ ン トコ マン ド の ファ イル に は , その よう な 
も の が な く , ファ イル の 大 き さ は 128 バ イト 単位 し いう こと に な り ま す . また , Sony Filer で は 拡 
張子 に .EXE が 付い て いる も の が トラ ンジ ェ ン トコ マン ド と 見 な され ます (CP/M で は .COM ). 


( 2 ) コー ディ ング に あたっ て 


ここ まで の 説明 で , ト ラン ジェ ント コマ ンド は 0100H 番 地 か ら 始 まる 機械 語 プ ログ ラム で , 拡張 
子 に . EXE が 付い て いる も の だ と いう こと は , わか っ て いた だ けた と 思い ます . し か し , これ だ け 
の 知識 で は プロ グラ ム の コー ディ ング も で きま せん . 


8 章 アセ モン ブラ と Sony Filer 


コマ ンド の 終了 
まず 。 プ ログ ラム を 終了 し て シス テム メニ ュー に 戻る に は どう する の か 。 これ に は 。 いく つや 
方 法 が あり ます . 


・RET 命 令 (ANN 表 記 で は [ ) を 実行 する 
も ちろ ん スタ ッ ク は 0100H 番 地 か ら 実 行 が 始ま っ た と き と 同 じ に な っ て いな けれ ば な り ま せ 
ん . こう や っ て 終了 する と , ビー プ 音 が 鳴っ て 画面 の 一 番 下 に , 


Hit any key ! ! ! 
と いう メッ セー ジ か が 出 て , 何 か キ ー が 押さ れる まで 待っ て いま す . 


・0000H 番 地 へ 実行 を 移す 
ジャ ンプ で も コー ル で も 結果 は 同じ で すか ら , RST 0 (ANN 表記 で は ] '00) が 短く て よい . 
RST に は 条件 が 付け られ ませ ん か ら , ジャ ンプ を 使わ な けれ ば な ら な いと きも あり ます が . 


・C レ ジス タ に 0 を 入れ て 5 番地 また は 8 番地 へ 実行 を 移す 
結果 は 0000H 番 地 へ 実行 を 移し た と き と 同 じ で す . 


・ シ ャ ドウ ROM に バン ク を 切り 換え て , 0000 番 地 へ 実行 を 移す 
ご れ ま で の 3 つづ は いずれ も ウォ ー ム スタ ー ト で し た が ,) これ ば Sony Filer の コー ルド ズ タ 
ー ト で す . E900H 番 地 以降 の 部 分 を 壊し て し まっ た と き な ど は , こう し な けれ ば な り ま せん . 


ファ イル の 管理 

前 項 で 少し 触れ まし た が , Sony Filer で は ディ スク の アク セス に 際 し て , FCB (File Control 
Block ) と 呼ば れる 33 バ イト の ワー クエ リア を 使い ます . FCB の 構造 を 図 8 -4 に 示し ます が , 普 
通 に シー ケン シャ ル な アク セス を する だ け な ら ,、 ファ イル を オー プン する と き に バイ ト 0 か ら バ 
イト 12 ま で を 書き 込め ば あと は ユー ザー が これ を 操作 する 必要 は あり ませ ん . この FCB は , オー 
プン され て いる ファ イル ご と に 必要 で , 置い て ある 場所 は どこ で も か まい ませ ん . そこ で , ファ 
イル を アク セス する と まき (5 番地 コー ル の 15 番 か ら 23 番 まで ) は , DE レジ スタ に アク セス し た い 
ファ イル の FCB の 先頭 番地 を 入れ て お きま す . と ころ で , UIF も TYPE, PRINT 等 , ファ イ 
ル を アク セス し ます し , また トラ ンジ ェ ン トコ マン ド を ロー ド し た り も し ます か ら , FCB を 作り 
ます . それ は 005CH-007CH に あり , トラ ンジ ェ ン トコ マン ド 中 で も , ファ イル を ひと つ し か オ 
ー プ ン し な い の な ら , 通常 ここ に FCB を 置き ます . 

ディ クス に 読み 書き を する と き 128 バ イト の バッ ファ が 必要 と な り ま す が (1 論理 セク タ が 128 
バイ ト だ か ら ), これ を DMA エリ ア と 呼び ます . FCB は 5 番地 を コー ル す る 際 い ちい ち DE に 
入れ て お く の に 対し , DMA エリ ア は 5 番地 コー ル の 26 番 で 変更 する まで は 変り ませ ん . UIF は 
0080H-00FFH を DMA に 使っ て いま すか ら , トラ ンジ ェ ン トコ マン ド 中 で も ここ を 使う こと が 
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多く な り ま す . 


Peb 女 レコ ー ド ・ カ ウン タ 


oli 2 3 4 5 e 7 8l9 101l12 13 4 過 16 17 18 19 20 21 22 23 24 25 26 27 28 29 0 31 


ヽ ーーーーーーーーー ペ ーーーーーーーーーーー ヘ ーー ジー ヘーー ご ーーーーーーーーーーーーーーーーー ニ ーー 一 
ファ イル 名 拡張 子 ファ イル ・ エ クス テン ト ディ スク ・ ア ロケ ーション マッ プ 


バイ ト No. 


ドラ イブ 指定 
0 : 登 録 ド ライ プ 
1 : ドラ イブ A 
2 : ドラ イブ B 
図 8-4 FCB の 構造 


コマ ンド に ファ イル を 渡し た いと き 

「 ASSEM SOURCE 」, 「 PRINT SOURCE. LST 」 等 コマ ンド に ファ イル 名 を 渡す と き が 
よく あり ます . シス テム メニ ュー か ら コ マン ド を 入力 し た と き (カー ソル パドル て 選択 し て も , 
直接 入力 し て も 同じ で す ), 1 つ 目 の ファ イル 名 は 005CH 一 0067H, 2 つ 目 の ファ イル 名 (ファ イ 
ル を 2 つつ 指定 する こと は , カー ソル パドル で は で きま せん ) は 006CHー0077H に それ ぞ れ , FCB 
の バイ ト 0 か ら バ イト 11 に 書き 込む 形式 で 書き 込ま れ ま す . た と えば トラ ンジ ェ ン トコ マン ド と 
し て 「 TRANSIEN 」 と いう も の が あっ た と し て , 「 TRANSIEN ABCD B : EFGHI.JKL 」 
どら 0R だ た 右 お) 肖 | 


005C 00 


4 


0068 02 


006C 一 0077 ^EFGHI_LLLJKL 
と いう よう に 書き 込ま れ ま す . 


( 3 ) LOGOPRNT 


それ で は 実際 の 操作 を 実例 を 挙げ て 説明 し て ゆき まし ょ う . 実例 と し て は Logo の ファ イル を 
プリ ント アウ ト す る た め の LOGOPRNT と いう も の を 作り ます . 


プロ グラ ム の 仕様 

Logo の プロ グラ ム の プリ ント アウ ト は セー ブ し た も の を (Logo の セー ブ プ は すべ て アス キー 
形式 で お こ な わ れ ま すか ら ) シス テム メニ ュー の PRINT を 使っ て 行う こと が 多い の で す が , そ 
の 際 プ ロ シ ー ジ ャ と プロ シー ジャ の 間 に は な に も 入ら ず , 区 切り が 見 に く て いも の に な っ て し まい 
ます . プロ シー ジャ の 終り の 「 end 」 と 湊 の プロ シー ジャ の 「to 」 の 間 に な に も 入ら な い の で す . 
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そこ で プロ シー ジャ と プロ シー ジャ の 間 を 1 行 あ け て プリ ント アウ ト す る LOGOPRNT と いう ぅ 
コマ ンド を 作っ た わけ で す . 

実行 する 際 カ ー ソ ル パ ド ル を 使っ て コマ ンド を 選択 する と き は PRINT と 同じ で す が , 直接 キ 
ー ボ ー ド か ら 入 力 す る と き , ファ イル 名 に 拡張 子 は つけ な く て も 自動 的 に . LOG を 補っ て くれ ま 
9 


ソー スプ ログ ラム 


List 8-7 

9991 19 " 
9992 29 
9993 39 “ 
9994 49 
9995 99F9 41319899 59 “ Or の 9f9h 

99F4 9F99F999 
9996 99F8 58999991 69 “ en モロ ッ x 

99FC FF99 
9997 99FE 9999 79 “ ら 上 aF 
9998 89 「i 
9999 9995 99 "bdos どい 9995h 
9919 995C 199 "fcb で du 995ch 
9911 119 「: 
9912 120 "ーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーー 
9913 139 「: open file 
9914 140 " :ーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーー 
9915 159 「: 
9916 9199 216599 169 「x: h1=65h  j5ch+9 千 irst 1etter of extension 
9917 9193 7E 179 a=( h1 ) 
9918 9194 FE29 189 “ aー-32 
9919 9196 2998 199 “ ー->1pextexi。 9 
8929 9198 364C 299 “ (h1 )=4ch 3 し 
9921 919A 23 219 h1+ 
9922 919B 364F 229 “ (h1 )=4fh 0 
9923 919D 23 239 “ h1+ 
9924 919E 3647 249 (h1)=47h RIO 
9925 9119 115C99 259 "lpextexi:de= 和 fcb iexten ら 1On eX}1 ら て = 
9926 9113 9E9F 269 「『 c=15 if ュ ile open 
98992? 9115 CD9599 279 ]bdos 
9928 9118 3C 289 「『 FEa 
9929 9119 2921 299 “ ー->]1pcont1 “9 
9939 399 「: | 
9931 319 "iーー- 千 ゎ le not found ーー 一 
9932 329 「: 
9833 911B 2E9B 339 “ ] =1 1 ? xCOF 
89834 911D 269C 349 “ h=12 3? ア と OF 
9935 911F 1699 359 “ d=9 
8936 9121 9E15 369 “ c=21 ? mO ソ と こと いじ Or 
9937 9123 CF 379 “ ]" 98 
9938 9124 112B91 389 “ de=]lpmessa 
9932 9127 9E99 399 「『 c= ウ ? CRT-out messaoe 
9949 9129 CF 499 “ ] コ "98 
9941 912A C9 A19 “ 
9942 912B 46696C65 429 "1pmessa: db *File not found! 1 "49 


912F 296E6F74 
89133 29666F75 
9137 6E642121 


913B 96 
9943 439 「』 
9944 44 "ーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーー 
9945 459 『』 main 
9946 469 ":ーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーー 
9947 479 「: 
9948 913C 217491 489 “1pcont1: hl1=]ptable 
9949 913F 9E95 499 “ c=5 
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ーー レシ サ ヤ ババ パパ 。 パ 。、、 パパ パパ ーーーーーーーーーーーーーーーーーーーーーーーーー ナ ーー ーーーーー ーー ーーーーーーーーーーーーーーーーーーーーーーーーーーーーー 一 


9959 
9951 
9952 
9953 
9954 
9955 
9956 
9957 
9958 
9959 
9969 
9961 
9962 
9963 
9964 
9965 
9966 
9967 
9968 
9969 
9979 
9971 
9972 
9973 
9974 
9975 
9976 
997?7 
9978 
9979 
9989 
9981 


9982 
9983 
9984 
9985 
9986 
9987 
9988 
9989 
9999 
9991 
9992 
9993 
9994 
9995 
9996 
9997Z 
99?8 
9999 
9199 


9179 
917A 
917B 
917C 
917D 
917E 
9189 
9183 
9184 


9185. 


9186 
9187 


9188 


9995 BDOS 
914E LPEND 


CD9599 


3C 
2991 
C7 


C1 
E1 


118999 
9689 


9A656E64 
9D 


E1 


995C FCB 


299 
919 
926 


939 “ 
949 “ 


259 
969 
979 
989 
996 
1999 


9116 LPEXTEX1 
814F LPNOTEND 9174 LPTABLE 


^ 1 pnextsc : せ =h1 

0 =bc 

\ de=fcb 
c=20 
]bdos 
2 計 
ー>]pnotend,“9 
]* 99 


ヽ 


sread file 


1pend: 
H 

^ ] pnotend: bc 

h1 = 


de=89h 

b=89h 

a ニ ( de ) 

a-1ah 

ー->1pend,9 

]printer 

a-(h1 ) iaearch LF, "end' ,CR 
ー>1pcont2,“9 

h1+ 

と に 

ー->1pcont3,“9 

8=19 ifound LF。"end' ,CR 
]pr inter 

h1=lptable 

c=5 

de+ 

^>1p1oop1 

ー>]1pnex 人 tc 


1ploop1 : 


"1pcont2: 


"1pcont3: 


1ptab1e: db 1058nd3513 


= il print 


トリ 
ネ 
l| 
上 ゴ 


913C LPCONT1 
9156 LPLOOP1 
9179 PRINTER 


916A LPCONT2 
912B LPMESSA 
89199 X 


916F LPCONT3 
9141 LPNEXTSC 


リス ト 8- 7 に ソー スプ ログ ラム を アセ ンプ ル し た 際 の リス ティ ング ファ イル (アセ ンプ ブル の と 
き オ プシ ョ ン と し て ノエ を 付け た 結果 で きた , 拡張 子 が .LST と な っ て いる ファ イル ) を 示し ま 


す . 


8 音 アセ モン プラ と Sony Filer 


50 一 160 : すでに 気付 いて いる 方 も 多い と 思い ます が , 777 Assembler で アセ モン ブル し た も 
の は , 最初 の 部 分 に 何 か く っ つい て いて org 100h と し て も リン ク パ ッ ケ ー ジ 本 
体 は 100h か ら 始 まり ませ ん . そこ で org 0f0h と し , entry x と エン トリ の ラフ ベル 
を 1 文字 と する こと で , プロ グラ ム の 本 体 が 100h 番 地 か ら 始 まる よう に し て いま 
す . 

100 ・ UIF が 書き 込ん で くれ た ファ イル 名 を その まま 使う た め , FCB を 005CH か ら に 
層 ま 995 

160 一 240 : 入力 され た ファ イル 名 に 拡張 子 が 付い て いな いと き は , LOG を 補い ます . 

330 一 420 : ファ イル が 見 つか ら な か っ た と き 。, 画面 の 真中 に File not found! ! と いう メッ 
セー ジ を 出力 する .、 トラ ンジ ェ ン トコ マン ド に 制御 が 移っ た と まき, 画面 は 40 桁 に 
な っ て いま す . 
RET ( ANN 表記 で は [ ) で シス テム メニ ュー に 戻っ て いま すか ら , 「 Hit any 
key !!!」 と いう メッ セー ジ が 出力 され ます . 


570 ・ 読 む セ クタ が な く な っ て 終了 する と き は ] 00 で シス テム メニ ュー に 戻り まる 9 
の と き は 「Hit any key ! ! !」 の メッ セー ジ は 出力 され ませ ん . 
620 : DMA エリ ア は 変更 し て いま せん か ら 0080H 番 地 か ら に な っ て いま す . 
実行 形式 ファ イル の 作成 


ソー ス を アス キー セー プ し た ら シ ステ ム メ ニュ ー に 戻っ て アセ ンプ ル し ます が , この ど と 結 講 居 
ず ノ A を 付け て 、。 ア プ ソ リュ ー ト ・ リ ンク パッ ケー ジ を 作る よう に し て くだ さい . グ A を 付け な 
いと , org は 無視 され て 0100 番 地 か ら の パッ ケー ジ が で き て し まい ます . 


ASSEM LOGOPRNT ノ A 


こう し て で きた アプ ソリ ュー ト ・ リ ンク パッ ケー ジ を 「 DEBUG ベベ ペペ . PAC 」 と 入 
力 し て Debugger で ロー ド し ます . Debugger に 入る と き フ ァイル を 指定 する と, R コマ ンド で 
ファ イル を 読み 込ん だ と き と 同 様 に な り ま す . 


DEBUG LOGOPRNT .PAC| 


作成 し た リン ク パ ッ ケ ー ジ に は も と も と 00FOH-00FFH の 余分 な も の が 付い て いま すし , リ 
ジジ 2 ペッ ケー ジン テル に は さら に 「 ス タン グー ドラ ベル 」 が 17 バ イト 「 ネ クス トモ ンコ ん 04 
ラグ 」 が 2 バイ ト の 合計 13h バイ ト 余 計 を も の が 付い て いま す . そこ て 先頭 か ら 都合 23h バ イト は 
いら な いわ け で すか ら , 「M123、X※※※,100」 と し て 除き ます . 


M123, 1FF, 100 


0123 か ら ど こま で を 移動 させ る か は , 基本 的 に は , 
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リス ティ ング ファ イル に 出 て いる プロ グラ ム の 最終 番地 十 23h 


まで で す が , 余裕 を みる 分 に は 問題 あり ませ ん . 
「 ヤ XX メメ メメ . EXE」 で ファ イル 名 を 設定 し て 'S100、 メ ペペ ペ 」 で ディ スク に セー プ 
し て 完成 3 


YLOGOPRNT . EXE[ 
S100, 1FF[」| 
8-4 割込み 
さき に も 触れ た よう に SMC-777 で は モー ド 1 の 割込み (割込み が か か っ た ら 単 に 38H 番地 が コ 
ー ル され る ) を 使い ます ., 割込み 源 と し て は , 60Hz 割込み (BASIC の SOUND 命令 は これ を 
使っ て いる ), キー ボー ド が 押さ れ た と き の 割 込み が あり ます . 
(1 ) SMC-777 に お ける 割込み 


Sony Filer の 下 で は RAM は 図 8 - 5 の よう に な っ て いて , ROM の 0038H 番 地 は 、 


0000H 


0038H JP RAMINT 


0100H 


E900H 


RAMINT : CALL OFCO0H 
EI 
RET 


ROMINT : CALL SELECT_RAM 
CALL OFC00H 
CALL SELECT_ROM 
EI 
RET 


FC00H 


FC03H JP ROMINT 


FFFFH 


図 8-5 割り 込み 関係 の アド レス の 様子 
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JP OFC03H 


に な っ て いま す . シャ ドウ ROM 内 か ら で も 割込み 処理 が 可能 


な っ て いる わけ で す . Sony 
Filer が コー ルド スタ ー ト , ウォ ー ム スタ ー ト する と FC00H 番 地 に は 。, 


EI 
RET 


が 書き こま れ , また BASIC 中 で は FC00H 番 地 は DOS 内 の , 


EI 
RET 


と いう 部 分 へ の ジャ ンプ 命令 (C3 XX XX と な っ て いる と いう こと ) に な っ て いま す . 
BASIC 中 で は SOUND コマ ンド を 実行 し な い 限 り FC00H-FC02H を 書き 換え な 
ク パ ッ ケ ー ジ で 割込み を 使う こと が 可能 で す . リン ク パ ッ ケ ー ジ を 
番地 を その リン ク パ ッ ケ ー 


な い の で 。 リン 
を リン ク し て , FC01H, FC02H 
ジ の な か の 割込み 処理 の エン トリ に 書き 換え れ ば よい わけ で す (FC 
00H は も と も と C3H に な っ て いる か ら ). た だ し , 割り 込み プログ ラム を 書く に は 以下 の よう な 
注意 が 必要 で す . 


・ 処 理 終 了 時 に は EI 命 令 を 実行 し て は な ら な い . 図 8 
内 か ら 割 り 込 み を 受け 付け た と き に 困る か ら で す . 
・ 処 理 の 内 部 で は 5 番地 コー ル , 8 番地 コー ル を 用 いて は な ら な い 
ント ラン ト に な っ て いな いた めで す . 
・ 処 理 の 手前 (0000 番 地 に 近い アド レス ) の 257 バ イト 以内 に , 
① 行 入力 , エ ディ ッ ト 用 バッ ファ 
②FCB 
③Function key 定 義 の スト リン グ 


- 5 を 見 て も わか る よう に シャ ドウ ROM 


. これ は DOS 部 分 が リエ 


が あっ て は な ら な い . 
0005H 番 地 、0008H 番 地 に は E900H 番 地 以 降 の DOS 部 分 へ の ジャ ンプ 命令 が 書い て あり ます . 
そし て , この DOS 部 分 か らき さらに シャ ドウ ROM 内 の 1/O0 ルー チン が コー ル さ れる こと が 多く 
あり ます . RAM 上 の 0000H-3FFFH に パラ メー タ が ある と , それ は シャ ドウ ROM に バン 
ク が 切り 換 わ っ た と き に は 見 えな く な っ て し まい ます . その た め RAM 上 の パラ メー タ を 使用 す 
る よう な シャ ドウ ROM 内 の ルー チン を コー ル す る 前 に は , DOS 部 分 で 
の 始め か ら 257 バ イト を , FCO0H 以降 の ワー クエ リア 中 の ある 部 分 と 


一 度 。 そ の パラ ラク 
SWAP させ る の で す . 
そう いっ た シャ ドウ ROM 内 の ルー チン の 実行 中 に 割込み が か か っ た と きのこ と を 考 應 し て , こ 
うい っ た 制限 が 付け られ る の で す . 
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( 2 ) 割込み を 利用 し た サン プル ・ プ ログ ラム 


割込み を 使っ た リン グ パ ッ ケ ー ジ の 実例 を リス ト 8 - 8 に 示し ます . これ は タイ トル を 見 て も わ 
か る よう に テキ スト 表示 の ハー ドコ ピー を 取る た め の も の て で, + ス ペー スバ ー で ハー ド 
コピ ー が 始ま る よう に な っ て いま す . この プロ グラ ム は キー が 押さ れ た と き に か か る 割込み を 利 
用 し て いま す . 割込み が か か る と , 420 行 の introut の と ころ へ 飛び , 押さ れ た キー を 調べ て , それ 
が [CTRL| + ス ペー スバ ー だ っ た らち ハー ドコ ピー を 始め る わけ で す . 

し か し , どの キー が 押さ れ た か 調べ る に あたっ て は ちょ っ と し た 問題 が あり ます 、 7 章 で 述べ 
た と お り , 1AH ポ ー ト を 読め ば 押さ れ た キー に 対応 する キャ ラク ター コー ド は わか り ま す . し か 
し 。1AH ポ ー ト が 一 度 読ま れる と, キー が 押さ れ た こと が 認識 され た と し て , 1AH ポ ー ト か ら は 
も う 同 デー タ は 読み 出せ な く な り ま す . で すか ら , 1AH ポ ー ト を 読ん で ,、 どの キー が 押さ れ た 
か を 判断 し て いた の で は , 事実 上 キー 入力 が 全く で き な く な っ て し まい ます . キー が 押さ れる た 
びに 割込み が か か り , 割込み 処理 の ルー チン 内 で キー デー タ を 読ん で し まっ て , 通常 の ルー チン 
が キー デー タ を 読め な い の で す . 

と ころ で , カー ソル パドル と スペ ー ス バー に は 通常 の キー と し て の 機能 と ,。 ジョ イス ティ ッ ク 
と し て の 機能 が あり ます . これ ら の キー に は , それ ぞ れ 2 つ ず つ ス イッ チ が 付い て いて , ひと つ 
が キー ボー ド エ ン コー ダー に , もう 2 ひと つが ジョ イス ティ ッ ク だ し て CPU に つが が 3 が の 7 で 
す . スペ ー ス バー が 押さ れ た こと を 知る に は 1AH ポ ー ト を 読ま な く て も , ジョ イス ティ ッ ク の ポ 
ー ト を 読め ば よい の で す . こ うい っ た わけ で , ハー ドコ ピー を 始め る の に [CTRL| + ス ペー スバ ー 
を 使っ た の で す . 

この リン ク パ パッケージ は 大 きく 分 け て 2 つの 部 分 か ら 成 り ま す . モ ー ド を 設定 する 部 分 と , 実際 
に 割込み に 対す る 処理 を する 部 分 で す . モー ド 設 定 は , 以下 の よう な コマ ンド で 行い ます . 


_ COPYMODE(A1, A2.A3) た だ し A1.A2.A3 は 0 か 1 で A2.A3 は 省略 可能 
AT 0.: + ス ペー スバ ー で テキ スト の ハー ドコ ピー を 行わ な い 

1 二 + ス ペー スバ ー で テキ スト の ハー ドコ ピー を 行う 
A2 0: 横 80 桁 

1 : 横 40 桁 

0: キャ ラク タコ ー ド 80--9F, E0-FF を ひら が な と し て 出力 する 

1: キャ ラク タコ ー ド 80 一 9F, E0-FF を グラ フィ ッ ク 文 字 と し て 出力 する 


A3 


A2 と A3 は , 省略 され た と き は 直前 の 設定 が 有効 に な り , 最初 の 設定 は すべ て 0 と な り ま す . 
ひら が な が 出せ る の は 純正 プリ ンタ と NEC PC-8821 ま た は その 相当 品 だ け で す . 8 番地 コー ル 
で 画面 が 40 桁 か 80 桁 か は 知る こと が で きる の で す が , 前 節 の 注意 に あっ た と お り , 割込み 処理 ル 
ー チ ナン で は 5 番地 ・8 番地 コ ー ル が 使え ませ ん の で コマ ンド て 認定 する よう に な っ て いま す . ま 
た 同様 に プリンタ に 出力 する ルー チン も この プロ グラ ム の な か に ある も の を 使っ て いま す .。 その 


27S 


8 草 アセ ンプ ラ と Sony Filer 


ほか, この プロ グラ ム の 仕様 と し て , を 押せ ば ハー ドコ ピー は 必ず 中 断 さ れる よう に な っ て 
いま す . 


iList 8-8 

9991 10 ′: ニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ 
9992 29 "』 Text screen hard-copy triggerd by ctr] space 
5993 づ 30 ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニ 
9994 49 「i 
9995 9199 52319891 59 “ Or9 199h 

9194 16999991 
9996 9198 434F5959 69 en キッ copymode( byt , 上 byt], 上 by モコ ) 


919C 4DA4F4445 
9119 991A9116 


9114 91 
9997 9115 99934343 79 “ て ar 
9119 99 
9998 89 
9999 ヶ の | ニニ ニニ ニニ ニニ ニニ ニニ ニニ ー ニ ニニ ーーー ニーーー ニ ニニ ニニ ーーーーー ニ ーー ニニ ニニ ニー ニニ ーー 
9919 199 Mode et モモ ュ n9 
991 1 11102 ニニ ー ニ ニニ ニニ ニー ニー ニ ニ ー ニ ニニ ニニ ニー ニニ ニニ ニー ニーーー ニ ニー ニニ ンー ニー ニー ニー ニー ペン 
9912 129 「 
9913 911A 7E 139 “copymode : a=(h1 ) 
9914 911B BZ 149 8 ニニ 8a!a 
9915 911C 2993 159 “ ー->cm2, ょ “9 
9916 911E D31B 169 p( 1bh)=a 
891?7 9129 C? 179 “ [ 
9918 189 「 
9919 9121 DD7E91 199 "cm2: a ニ ( ゝ x+1 ) 
9929 9124 FE49 299 “ a-49h 
9921 9126 2894 219 ー>cm3,9 
9922 9128 1A 229 “ a ニ ( de ) 
9923 9129 329B91 239 “ ( couidth )=a 
9924 912C DD7E92 249 "cm3: 8 ニ ( 1 x+2 ) 
9925 912F FE49 259 “ a-49h 
9926 9131- 2894 269 “ ー>cm4.09 
9927 9133 9A 279 a ニ (bc 〉 
9928 9134 329C91 289 “ (cohi ra )=a 
9929 299 「』 
9939 9137 F3 399 "cmAs に 
8931 9138 3E91 319 a ニ 1 
9932 913A D31B 329 “ p( 1bh)=a 
8933 913C 214401 339 “ h1 = ュ n モ COu モ 
9934 913F 2291FC 349 “ (9fc91h)=h1 
9935 9142 FB 359 “ e+ 
9936 9143 C9 369 “ [ 
9937 379 「s 
9938 380 "』ーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーー ニ ーーーーーーーーーーーーーーーーー 
9939 399 “s Key sense 
9949 96 ーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーー 
9941 419 「: 
9942 9144 F5 420 "1ntrou 七 : 匠 =a 
89943 9145 DB1B 439 “ a=p( 1bh ) skey board = 上 a 七 いっ 
9944 9147 BZ 449 “ a ニ a!a 
9945 9148 FA4D61 459 “ =>in モ 1 一 jsense ctr] 
9946 914B F1 469 “ 8 年 
9947 914C C92 479 “ [ 
9948 914D C5 489 "int1: 昔 ニ bc 
9949 914E 915191 499 “ bc=151h 
9959 9151 ED78 599 “ 8a=p( c ) iaense "hot"(=space bar ) 
9951 9153 E619 519 “ a=a&99919999b 
9952 9155 2893 529 “ ー>int2,9 
9953 9157 C1 539 “ bc= 
9954 9158 F1 549 “ 8 征 三 
8855 9159 C ヶ 559 “ [ 
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F5 
ED739D91 
3A9B9 1 
BZ 
2995 
1.15999 
1893 
112893 
218191 
72 
CDD891 
919999 


29F8 
CDD891 
21CF97 
B? 

ED42 
39EC 
ED7B2D9 1 
F 1 

98 

E1 


569 


579 
589 
599 
699 
619 
629 
639 
649 
659 
669 
679 
689 
699 
799 
719 
729 


gp2 : 


gop1 : 


8-4 割込み 


a=p( 1ah) jkey data 
# ニ de 

#= ト ] 

af iaf" 

= ニ a 征 

( spstack )=sp 

8a=( coui dth ) 

a ニ ai 8 

->co1 , “9 ゃ 
de=9959hi 99 :nop,59h=89 
ー>co2 

de=9328hi93:inc bc,28h=49 
h] =co4 

(h1 )=d 

]1pcr1f 

bc=9 


d=e 

]getprint 

bc+ 

ds 1 iuritten "nop'′ or "bc+" 
ゴー 

->coloop1 , “9 

]1pcr1f 

h1 =1999 

a ニ ai!a ?clear Carry 
h1 =h1 -bc@ 

ー->col oop2,~@ 

5p ニ ( spaack ) 

8 年 

af af 

h] = 

ゴ e ニ 御 

bc= 誕 


ー>]prin も 
aー7fh 
ー->gp2。9 

ー>] print,@ 
h=a 

a ニ (cohiraf ) 
8 ニ 8i!a 

a=h 

ー>]1 print,~9 
ュー-9a9h 


8 章 アセ ンプ ラ と Sony Filer 


9128 91BF 3897 1289 
9129 91C1 FEE9 1299 
9139 91C3 3823 1399 
9131 91C5S E6DF 1319 “ 
9132 91C7 21 1320 
9133 91C8 F629 1339 
9134 91CA 98 1349 
9135 91CB 3E26 1359 
9136 91CD CDE101 1369 “ 
9137 91D9 98 1379 “ 
9138 91D1 CDE891 1389 “ 
9139 91D4 3E24 1399 
9149 91D6 18992 1499 
9141 1419 
9142 1429 「 
9143 
9144 1449 
9145 1459 
9146 91D8 269D 1469 
9147 91DA CDE291 1479 
9148 91DD 269A 1489 
9149 91DF 1898 1499 
9159 91E1 6F 1599 
9151 91E2 261B 1519 
9152 91E4 CDE291 1529 “ 
9153 91E7 7D 1539 “ 
9154 91E8 6Z 1549 
9155 1559 
9156 1569 
9157 1579 
9158 91E9 DB1B 1589 
9159 91EB 1F 1599 
9169 91EC 3998 1699 
9161 91EE DB1A 1619 
9162 91F9 FE1B 16209 
9163 91F2 2992 1639 
9164 1649 
9165 91F4 182A 1659 “ 
9166 91F6 DB1D 1669 
9167 91F8 E619 16709 
9168 91FA 29ED 1689 
9169 91FC 7C 1699 
8179 91FD D322 1799 
9171 91FF 3E16 1719 
9172 9291 D31C 1729 
9173 9293 3E96 1739 
9174 9295 D31C 1749 
8175 9297 C9 1759 “ 
9176 1769 
9177 9298 1779 

9121 CM2 912C CM3 

9181 CO4 9199 CO05 

915C COPY 911A COPYMODE 

91AB GP2 91C8 6PHIRA1 

91F6 LP1 91D8 LPCRLF 


919D SPSTACK 


1439 「i 


ィ 


ー->gphira1 ,@ 
a-9e9h 
ー>]print,@Q 
a=a&11911111b 
db 21h 
"gphira1 : a=ai99199999b 
2 afia 千 " 

a=26hi "&“ 

]1 printes 

a 和 fkaf" 
J1print 
a=24hi " ま " 
ー>]printes 


Z 


ロ 


っ 


->1ploop 
"1printes: 1 =a 
h=1bh 
]1p1loop 
に 


"1print: h=a 


a=p( 1bh ) 
> て .@) 
ー->1p1 , ご @ 
a=p( 1 ah ) 
a-1bh 
->1p1.“6 


生き まい 


ー>co5 

a ニ p( 1 dh ) 
a=a&19h 
->lploop,“9 
8 ニトロ 
p(22h )=a 
a= ニ 16h 

p( 1ch)=a 
a=96h 
p(1ch)=a 
思 


"1p1・ 


end 


9137 CM4 
912C COHIRAF 
912B COMIDTH 
914D INT1 
91E9 LPLOOP 


916F CO1 

917D COLOOP1 
919F GETPRINT 
915A INT2 
91E8 LPRINT 


9172 CO2 

917C COLOOP2 

81AF GP1 

9144 INTROUT 

91E1 LPRINTES 


APPENDIX 


1 LOEO 
( 1 ) エス ケー プ 女 字 に つい て 


Logo で は 
スペ ー ス ( ) * 寺 ニノ くく = 〉>[ \ 」j 


の 14 文字 は 特別 な 意味 を 持っ て いま す . 通常 これ ら の 文字 は その 他 の 文字 の よう に プロ シー ジャ 
名 や 変数 名 に 使う こと は で きま せん . 例え ば ab*cd と いう 変数 に 10 を 代入 し よう と し て , 


? make “ab*cd 10[』 
と 大 罰 で も 、 Toge は ! 


ネ doesnt like ab as input 


と エラ ー メ ッ セ ー ジ を 返し て きま す . つま り * を 乗算 の 演算 記号 と 解 息 し て し まう わけ で す . 

そこ で Logo に は , 「 こ の 文字 の 次 に ある 文字 は , 特別 な 意味 は 持っ て いな い 」 と いう こと を 示 
す 文 字 と し て \ が 使わ れ ま す . こう いっ た 働き を する 文字 を エス ケー プ 文 字 と いい ます . た と え 
ば ab*cd に 10 を 代入 し た いと き は , 


? make ab\*cd 10| 
と すれ ば よい の で す . また \ を 変数 名 な ど に 含め た いと き は , 
\\ 


と 2 つ 重 ね ます . 例 を 挙げ ば ます と , 
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? make*\\ 27[ 


人 \\| 
\ 
? : \\| 貼 
27 


CV なり: ます. 


(2 ) 変数 名 


本 文中 で 何 度 も 出 て きた よう に , 変数 に 値 を 代入 する と き は , 
make “a 100 
の よう に し ます . これ を 本 文中 で は , 
make “< 変数 名 〉 < 値 > 
と いう 書式 で 説明 し まし た . し か し , マニ ュ ア ル 等 を 見 る と make の 書式 は , 
make <〈 変 数 名 > < 値 > 


C26 の Ks の Os ニク (まあ お (まん 。 ご れれ は どう し て で し ょ うか ? 
Logo の 命令 の 書式 は 一 般 に , 


命令 語 〉 < 引数 1 > < 引数 2> …… 


で ある こと は , 本 文 で も 触れ た と お り で す . 
この 引数 に は 一 般 に , ` の マー ク の 付い た 定数 の 型 以外 に , : の マー ク の 付い た 変数 の 型 や , 値 
を 返す プリ ミ テ ィ ブ を 置く こと も で きる の で す . で すか ら make の 場合 


make :a 100 


と いう 書き 方 も 可能 な の で す . 
今 ま で は , make の 1 つ 目 の 引数 と し て マー ク の 付い た 定数 の 型 だ け を 置い て いた の で , 本 


文中 で は “< 変数 名 > と 表現 し て いま し た が , 本 来 な ら , 
make < 変数 名 > < 値 > 
と する 方 が 正しい の で す . 
次 に , make の 1 つ 目 の 引数 に , : の マー ク の 付い た , 変数 の 型 を 使っ た 場合 の 働き を 説明 し ま 
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す . 例 を 見 て くだ さい . 


? make “セイ コ サン スウ [| 
? make : セ イコ 70|』 

? : セイ コ | 品 

サン スウ 

23 サ ジス 悦 

70 


この 例 で も わか る よう に ,: セイ コ を make の 1 つ 目 の 引数 に し た 場合 は , “セイコ と いう 変数 
名 の 指す 内 容 で ある サン スウ を 求め , 


? make “サン スウ 70[ 


と し た と き と 同 じ 働 き を を する の で す . 
また , make と は 逆 の 働き を 持つ プリミティブ に , thing と いう も の が あり , 


? make “アキ ナ “シャ カイ 
? make : アキ ナ 80 

? thing “アキ ナ 

シャ カイ 

2 thing : ア キナ 

80 


ど 才 まま 

ここ て で 説明 し た こと は , 初心 者 の 方 に は わか り に くい か も し れ ま せん . し か し , これ ら の 機能 
を 使う と 間接 参照 な ど が 行え を る よう に な り , プロ グラ ミン グ に 幅 を 持た せる こと が で きま す . 団 
味 の あ る 方 は , 決 の プロ グラ ム と その 実行 結果 を 参考 に し て , 自分 で 工大 し て みて 〈 だ さい . 


NGK NIRSSASSSSSSW( List A- 1 


モ て っ bui1d 

make "カモ ク 上 コク コ " サン ス 9 リカ シャ カイ ] 
make "セイ コ "カモ ク 

make "アキ ナ "カモ ク 

make "キョ ウ コ "カモ ク 

make " イ ヨ "カモ ク 

make "man [セイコ アキ ナ キョ ウ ] イ ヨ ] 
make "コク コ ` FL199 29 49 79] 
make "サン ス 9 [29 39 49 929] 
make "リカ [9 16 32 87] 

make "シャ カイ [99 77 34 59]1 
end 
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to do 
make "i 9 
repea て coun セ も sman [ 
make "1 (+ *: ュ 1) 
make "」 (item :i :man) 
pr [上] type :」 
make "k (thing :」) 


PF に 

make "1 9 

repeat count (thing :k) [ 
make "1 (+ :] 1) 
make "m (item : | (thing :k) ) 
tyPe *:m 


て type (item : ュ 1 (thing :m) )]] 
end 


?bui 1d 
?do 


セイ コカ モク 


コク コ " 199 サ ンス 920 リ カ 9 ラ ャ カイ 99 
アキ ナカ モク 


コク ] コ ~ 29 サ ンス 939 リ カ 1 6 シャ カイ イイ 
キョ リコ カモ ク 

コク ]" 49 サ ンス 949 り リカ 32 ミ ャ カイ 34 
イ ヨ カ モク 
20220207094267459 


リス ト A-1 の 実行 結果 


( 3 ) 演算 子 


Logo で は 引数 に 算術 式 が 許さ れ て いま す . 演算 子 に は エー* ネ ノ が あり , それ ぞ れ 加減 乗除 に 対 
応 し て いま す . 当然 , 乗除 算 が 優先 で す . 
SE ドー ポン は プリ ミ テ ィ プ と し て も 働き 。 


? 十 10 20|』 
30 


の よう に な り ま す . プリ ミ テ ィ プ と し て の 十 * は 引数 を 3 つ 以 上 と れる の で , 便利 な こと が あり 
9i7 ど と ズ は 


1 
CO 
1 いう) 


1 Logo 


? (*12345678910) | 
362880 

? (+12345678910) | 
55 


と な り ま ボ 。 
( 4 ) catch と throw 


Dr. Logo で は , プロ グラ ム の 流れ を 制御 する プリ ミ テ ィ プ と し て catch と throw と いう 独特 
な 命令 が 用 竜 され て いま す . 初め は ちょ っ と わか り に くい プリ ミ テ ィ プ で す が , 慣れ る と 便利 で 
す の で よく 勉強 し て 活用 し て 《 だ さい . 

BASIC に 慣れ て いる 方 は , GOSUB-RETURN を 思い 出し て いた だ く と わか り 易 いか と 思い 
ます (使い 方 は 。 ちょ っ と 條 い ます けど …). GOSUB-RETURN 文 で は , GOSUB 文 で 指定 し 
た サブ プルー チン に 実行 が 移さ きれ , サブ ルー チン 中 の RETURN を 認識 する と 。 メ イン ルー チン の 
GOSUB 文 の 次 か ら 実 行 を 始め る , と いう 流れ が 実行 され ます . Logo で は , GOSUB が catch に , 
RETURN が throw に 当たり ます . 簡単 な 構造 と し て は , Logo が catch を 見 つけ る と , catch の 
引数 で ある 命令 リス ト ( 他 の プロ シー ジャ や 命令 等 ) を 実行 し ます . そし て , この 命令 リス ト を 
実行 中 に , Logo が throw を 評価 する と , throw の 引数 と 同じ 名 前 を 持つ catch を 探し て , そこ へ 
戻り その catch の 次 か ら 実 行 を 再開 し ます . GOSUB-RETURN と 異な る の は , サブ ルーチン 
( 他 の プロ シー ジャ ) を コー ル す る だ け で な く , catch の 引数 の 中 に throw が 存在 し て も よい こと . 
それ に ,catch で 呼ん だ プロ シー ジャ が 呼ん だ プロ シー ジェ ャ から throw で 2 レベ ル 戻 すこ と も で き 
ます た の を 


catch “teru [if :n > :m [throw “teru] [Jun] ] 


to a 
catch “b [c] 


end 


to d 
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throw “b 


end 


と いっ た 構成 が 可能 な わけ で す . つま り 1 つ 目 で は :n>:m が TRUE で あれ ば , 次 の 命令 に 制 
御 が 移り ,FALSE な ら ば Jun と いう プロ シー ジャ を コー ル し ろ と いう 命令 に な る わけ で す . ま た 
2 つ 目 の 例 で は プロ シー ジャ a が catch の 中 で c を 呼び この c が d を 呼び ます . そし て プロ シ 
ー ジ ャ d の 中 の throw "b で c を すっ 飛ば し て 直接 プロ シー ジャ a の catch の 次 へ 行っ て し まい 
23 

catch と throw に は , この 他 に も 便利 な 使い 方 が あり ます . 

まず , catch の 名 前 に error を 使う と, エラ ー ト ラッ プ と し て 利用 で きま す . プロ シー ジャ の 実 
行 中 に エラ ー が 発生 する と 自動 的 に catch `error 文 の 次 に 実行 が 移り ます . この 場合 , 対応 する 
throw “error を 書く 必要 は な く 〈, Logo が 自動 的 に throw “error を 補っ て catch の 次 に 実行 を 
移し ます . 

また , catch の 引数 に TRUE を 用 いる と , throw の 引数 に 用 いら れる 名 前 に 関係 な く , catch 
"TRUE の 次 に 実行 を 移す こと が で きま す . 

throw で は , 引数 に TOPLEVEL を 指定 する こと に より プロ シー ジャ の 実行 を 終了 させ る こと 
も で きま す . 通常 , プロ シー ジャ を 実行 する ある とき, ほか の プロ シー ジャ を どん どん コー ル し て め ゆめ 
きま す . そし て , 下位 の レベ ル の プロ シー ジャ で 実行 を 終了 し た いと き , stop を 用 いる と プロ シ 
ー ジ ャ は 実行 を 終了 し , そ の プロ シー ジャ を コー ル し た プロ シー ジャ に 実行 を 移し て し まい ます . 
この た め , 下位 の レベ ル で 全 プ ロ シ ー ジ ャ の 実行 を 終了 し た いと き に , この throw “TOPLEVEL 
を 使用 し ます . 

この よう に , catch と throw は , プロ グラ ム の 流れ を 制御 し た り , エラ ー ト ラッ プ を し た り , プ 
ロ シ ー ジ ャ の 実行 を 終了 し た り , 様々 な 働き を し ます . 


( 5 ) シス テム プロ パテ ィ と シス テム 変数 


Logo の 処理 系 自身 ,、 デ ー タ は すべ て プロ パテ ィ で 管理 し て いま す . プロ シー ジャ の 内 容 や 変数 
な どす べ て プロ パティ と し て 保存 され て いる の で す . こう いっ た Logo の 処理 系 自身 が 作る プロ 
パパ ティ の プロ ン パティ 名 を 表 A - 1 に 示し ます . ユー ザー が 作る プロ パテ ィ は これ 以外 の プロ パテ 
ィ 名 を 使わ な けれ ば な り ま せん . 

また , その 変数 の 値 が 直接 Logo の 動作 に か か わっ て くる, いわ ば シス テム 変数 と 呼べ る も の が 
2 つ あ り ま す . 

ひと つめ は REDEFP で , これ は 通常 未定 義 状 態 で す が , 


make “REDEFP “TRUE 
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を 実行 する と 。 プロシージャ 名 に プリ ミ テ ィ ブ の 名 前 を 使え る よう に な り ま す . た だ し 一 度 プ ロ 
シー ジャ 名 と し て プリ ミ テ ィ ブ を 使い ます と , その プリ ミ テ ィ プ は な 《 な っ て し まい ます の て 注 
意 が 必要 で す . 

も う ひと つ は ERRACT と いう も の で , これ を TRUE に する と エラ ー が 起こ っ た と き , エラ ー 
メッ セー ジ を 表示 せ ず , ポー ズ 状 態 に な り ま す . こ の と き エ フー メッ セー ジ は error と いう プリ ミ 
カイ ンカ 05 も で くま 3 

表 A-1 シス テム プロ パテ イィ ーー 覧 


\ テ る 
和 make, ed, edall グロ ー バ ル な 変数 の 値 
HI value) 
to, ed, edall, define プロ シー ジャ の 定義 内 容 の リス ト 
Pe 


プロ グラ ム と し て の 1 行 を 画面 上 の 数 
行 に 分 け ,。 イン デン ト し た 形式 で 登録 
し た 場合 の 形式 情報 


9Pededill 画面 上 の 1 行 の 閣 り に 注釈 文 が 付加 さ 
2 れ て いる こと を 示す 
画面 上 の 表示 形式 と し て スペ ー ス が が 押 
入 さ れ て いる 数 を 示す 


現在 評価 され て いる 関数 を 示す . 一 時 

的 な も の な の で , ユー ザー は 見 る こと 

は で き な い 

catch を 登録 する プロ パテ ィ . プ ロ シ ー 
catch, throw ジャ 実行 中 に 一 時 的 に 作ら れる も の な 

の で , ユー ザー は 見 る こと は で き な い 


イ 
プリ ミ テ ィ ブ の 処理 ルー チン の 先頭 番 


(primitive) 地 を 示す プロ パテ ィ 
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( 6 ) プリ ミ テ ィ ブ 一 覧 表 

Dr. Logo の プリ ミ テ ィ ブ の 書式 と その 意味 を ABC 順 に 並べ ます の で , プロ グラ ム 作 り の 際 の 
参考 に し て くだ さい . な お 各 プ リ ミ テ ィ プ に は それ ぞ れ の 働き に 応じ て 分 類 記号 を 付け まし た の 


で , 検索 の 際 に 役立て て くだ さい . 


プリ ミ テ ィ ブ の 分 類 


ゴ 


デア キ スト ドス クリ ー シ に 関す る プリ ミチ ティ アプ 
グラ フィ ックス クリ ー ン に 関す る プリ ミ テ ィ ブ 
ター トル 制御 に 関す る プリ ミ テ ィ プ 

カラ ー パ レッ ト に 関す る プリ ミ テ ィ ブ 

演算 機能 に 関す る プリ ミ テ ィ プ 

ワー ド と リス ト の 処理 に 関す る プリ ミ テ ィ プ ブ 
プロ シー ジャ の 定義 と 修正 に 関す る プリ ミ テ ィ ブ 
変数 に 関す る プリ ミ テ ィ プ 

条件 判断 に 関す る プリ ミ テ ィ プ ブ 

プロ シー ジャ の 実行 に 関す る プリ ミ テ ィ プ 

ワー クス ペー ス 管 理 に 関す る プリ ミ テ ィ プ 

デバ ッ グ に 関す る プリ ミ テ ィ プ 

プロ パテ ィ 管理 に 関す る プリ ミ テ ィ ブ 

キー ボー ド と 接続 機器 に 関す る プリ ミ テ ィ プ 
ファ イル と ディ スク に 関す る プリ ミ テ ィ ブ 

デー タ の 直接 入力 に 関す る プリ ミ テ ィ プ 


ゴ 
て う 
ミ | ジ ビ | | 
el | ビ 3| | と 
| | の | | コ | | ビ | 1 リ 


・and 


書式 and < 判定 文 > < 判定 文 > 


判定 文 の 結果 が すべ て 真 の 場合 TRUE を 返し , それ 以外 は FALSE を 返す プ 
リ ミ テ ィ ブ . 引数 が 2 つ 以 外 の と き は 全体 を ( ) で くく る . 


・arctan 


書式 arctan < 数 値 > 


逆 三 角 関 数 アー クタ ンジ ェ ン ト tan-~!(x) の 値 を 返す . 
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・aSCii 
書式 ascii < ワード > 


与え を られ た ワー ド の 先頭 文字 の アス キー コー ド を 返す . 


・back (bk) 
書式 bk < ステ ッ プ 数 > 


ター トル の 向き と 反対 方 向 に , 与 と られ た ステ ッ プ 数 分 だ け 後 退 す る . 


・butfirst (bf) 
書式 bf < オプ ジェ クト > 


与 を られ た オプ ジェ クト の 先頭 の 要素 を 取り 除き , 残り の 要素 を 返す . 


返さ れる オプ ジェ クト 


ロ : 園 : 較 ' 圏 間 間 園 


オプ ジェ クト 


・buttonp 
書式 。 buttonp < パドル 番号 > 


スペ ー ス バー また は ジョ イス ティ ッ ク 1 (パドル 番号 0 )、 ジョイスティック 
2 (パドル 番号 = 1 ) が 押さ れ て いれ ば TRUE, 押さ れ て いな けれ ば FALSE 
を 返す . 


Logo を 終了 し て Sony Filer の シレ ステ ム メ ニュ ー に 戻る . 


・catch 


書式 


catch < 名 前 > < 命令 リス ト > 


命令 リス ト を 実行 中 , 同 し 名 前 を 引数 に 持つ throw を 見 つけ る と 再び catch に 
戻り 、 catch の 次 か ら 実 行 す る . APPENDIX ( 4 ) 参 照 . 


・changef 


書式 changef < 新 フ ァイル 名 > < 旧 フ ァイル 名 > 


ドラ イプ 中 の ディ スク の Logo ファ イル の ファ イル 名 を 変更 する . 
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・char 


書式 char < 数 値 > 


与え られ た 数 値 を アス キー コー ド と する 文字 を 返す . 


ター トル の 状態 を 変え た ず , グラ フィ ッ ク 表 示 だ け を 消す . 
・clearscreen (cs) 

書式 cs 

ター トル を ホー ム 位 置 に 戻し て グラ フィ ッ ク 表 示 を 消す . 
・cleartext (ct) 

書式 ct 

テキ スト 表示 を 消す . 

・co 

書式 co また は co < オプ ジェ クト > 

pause で 中 断 さ れ た プロ シー ジャ の 実行 を 再開 する . 

・coDyOff 

書式 copyoff 

copyon の 状態 を 解除 し て , プリ ンタ へ の 出力 を 行わ な くす る . 
・cODyon 

書式 copyon 

これ を 実行 する と , それ 以後 画面 上 に 出力 され る 文字 を プリ ンタ に も 出力 する . 
copyoff が 実行 され る まで プリ ンタ 出力 状態 が 継続 する . 


* COS 


書式 COS 


三角 関数 コサイン cos(x) の 値 を 返す . 角度 は 度 (degree) で 与え る . 


・COunt 
書式 count < オプ ジェ クト > 


与え られ た オプ ジェ クト の 要素 数 を 返す . 


* CUrSOr 


CUrSO『 


現在 の カー ソル の 位置 を 座標 値 リ スト で 返す . 


・defaultd 
書式 defaultd 


現在 の 登録 ドラ イブ 名 を 返す . 


・define 
define < プロ シー ジャ 名 >〉 < 定義 リス ト > 


dot < 座標 リス ト > 


ワー クス ペー ス 内 の すべ て の プロ シー ジャ と グロ ー バ ル 変 数 を エディ ッ ト モ 
ー ド に 移行 する . 


・edit (ed) 
ed < 名 前 > また は ed < 名 前 リス ト > 


指定 の 名 前 を 持つ プロ シー ジャ と グロ ー バ ル 変 数 を エディ ッ ト モ ー ド に 移行 


・emptyp 
書式 emptyp < オプ ジェ クト > 


・equalp ( 三 ) 
く オ プ ジ ェ クト >〉 〈 オ プ ジ ェ クト > 
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・erall 


書式 erall 

ワー クス ペー ス 内 の すべ て の プロ シー ジャ と グロ ー バ ル 変 数 を 削除 する . 
・erase (er) 

書式 er < プロ シー ジャ 名 > また は er < プロ シー ジャ 名 リス ト > 
指定 の プロ シー ジャ を 削除 する . 

・erf 

書式 erf < ファ イル 名 > 

ディ スク 上 の , ファ イル 名 で 指定 し た ファ イル を 削除 する . 


・ern 

書式 ern < 変数 名 〉 また は ern < 変数 名 リス ト > 
指定 し た 変数 名 を 持つ グロ ー バ ル 変 数 を 削除 する . 
・error 


書式 error 


最後 に 起こ っ た エラ ー の 内 容 を リス ト で 返す .、 シス テム 変数 ERRACT を TR 


UE に し て お く と , エラ ー が 起こ っ た と き ,。 エラ ー メ ッ セ ー ジ を 表示 し な く な 
る . この と き に 有効 に な る . 


・fence 


書式 fence 
ター トル が 画面 の 外 に 出 な いよ うに 画面 の まわ り に 杉 を 設定 する . 


・first 
書式 first < オプ ジェ クト > 


与え られ た オプ ジェ クト 中 の 最初 に ある 要素 を 返す . 
返さ れる 要 広 
左 同 口中 占 
オプ ジェ クト 


・forward (fd) 
書式 fd < ステ ッ プ 数 > 


ター トル を 与え られ た ステ ッ プ 数 だ け 前 進 き せる . 
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・fput 
書式 fput < オプ ジェ クト 1 〉 < オプ ジェ クト 2>〉 


与 た を られ た オプ ジェ クト 1 を オプ ジェ クト 2 の 最初 の 要素 と し て 合成 し 


す . 
オプ ジェ クト 1 周 
十 
zzszt 略 | 賠 較 


・fullscreen ( ) 


書式 fullscreen 


画面 全体 を グラ フィ ッ ク 表 示 だ け に 使う よう に 設定 する . 


|_』 較 | 国 較 


返さ れる オプ ジェ クト 


・getfs 
書式 getfs < ファ イル 指定 > 


ディ スク 上 に 存在 する Logo の ファ イル 名 を リス ト て 返す . 
・glist 

書式 glist < プロ パテ ィ 名 > 

与 た られ た プロ パテ ィ 名 の 内 容 を 持つ 名 前 の リス ト を 返す . 
*・ gO 

書式 go 〈 名 前 > 


同名 前 を 引数 に 持つ label に 実行 を 移す . 
label “LOOP 


go LOOP 


* gprOD 
書式 gprop 〈 名 前 > < プロ パテ ィ 名 > 


指定 され た 名 前 の 指定 され た プロ パテ ィ の 内 容 を 返す . 
・heading 
書式 heading 


現在 ター トル が 向い て いる 方 向 を 絶対 角度 (基準 回 転 軸 か ら 右 まわ り に 何 度 
か ) て 返す . 


1 


Logo 
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・hideturtle (ht) 


書式 ht 
ター トル を 画面 に 表示 させ な いよ うに する . 描画 が 速く な る . 


・home 
書式 home 


ター トル を ホー ム 位 置 に 戻す . 
・ii 


書式 if < 判定 文 > < 命令 リス ト 1>〉 < 命令 リス ト 2> 


判定 文 の 値 が TRUE な ら ば 命令 リス ト 1, そう で な けれ は ば 命令 リス ト 2 を 実 
行 す る . 命令 リス ト 2 を 省略 する と 値 が FALSE の 場合 、 次 に 実行 が 移る . 


int 
与え られ た 数 値 の 整数 部 分 を 返す . 
int 1234.561234 
・item 
書式 item < 要素 番号 > < オプ ジェ クト > 
指定 され た オプ ジェ クト か ら , 指定 され た 順番 目 に ある 要素 を 1 つ 返 す . 


返さ れる 有 愉 


ml 四 民 | 圏 日 回 


オプ ジェ クト 


キー ボー ド が 押さ きれ て いれ ば TRUE, そう で な けれ ば FALSE を 返す . 
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・label 


書式 label < 名 前 > 

go に より 実行 を 移す 位置 を 示す . 

・left (It) 

書式 It < 角度 > 

ター トル を , 与え られ た 角度 だ け 左 に 回 転 さ せる . 
・list 

書式 lisSt < オプ ジェ クト > < オプ ジェ クト > 


与え られ た オプ ジェ クト を 要素 と する リス ト を 返す . 引数 が 2 つ 以 外 の 場合 
は ,。 全体 を ( ) で 〈 く くる. 
・listp 


書式 listp < オプ ジェ クト > 


与 を られ た オプ ジェ クト が リス ト 形 式 で あれ ば TRUE を , それ 以外 な ら FA 
LSE を 返す . 


・load 
書式 load < ファ イル 名 > 
ディ スク 上 か ら 指 定 の ファ イル を 読込 む . 


・local 


書式 local < 変数 名 〉 < 変数 名 > 


指定 の 変数 名 を , それ が 定 言 され た プロ シー ジャ 及び そこ か ら 呼 ば れる 下位 レ 
べ ベル の プロ シー ジャ の な か で の み 有 効 な 変数 と し て 設定 する . 引数 が 2 つ 以上 
の と き は 全体 を ( ) で くく る . 


・lowercase (|c) 


書式 lc < ワー ド > 

与 を られ た ワー ド を 小文字 に 変換 する . 
・make 

書式 make < 変数 名 〉 < 値 > 

指定 され た 変数 名 の 指す 変数 に 値 を 代入 する . 


・memberp 
書式 memberp < オプ ジェ クト 1 > < オプ ジェ クト 2> 


与え を られ た オプ ジェ クト 1 が , オプ ジェ クト 2 を 構成 する 要素 で あれ ば TRU 
E, そう で な けれ ば FALSE を 返す . 
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*・ narTeD 


書式 namep < 名 前 > 


指定 し た 名 前 の グロ ー バ ル 変 数 が 存在 し て いれ ば TRUE,、 そう で な けれ ば 
FALSE を 返す . 


・nodes 


書式 nodes 
ワー クス ペー ス 内 の 未 使用 ノー ド 数 を 返す . 


・noformat 
書式 noformat 


形式 プロ パテ ィ を 削除 する . 


・not 


書式 not < 判定 文 > 
判定 文 の 値 が TRUE な ら ば FALSE, FALSE な ら ば TRUE を 返す . 


・notrace 
書式 notrace 


トレ ー ス モー ド を 終了 する 。. 


・nowatch 
書式 nowatch < プロ シー ジャ 名 > また は 
nowatch < プロ シー ジャ 名 リス ト > 


指定 の プロ シー ジャ の ステ ッ プ 動作 を 終了 する . 引数 を 省略 する と , すべ て の 
プロ シー ジャ に つい て ステ ッ プ 動作 を 終了 する . 


・numberp 
書式 numberp < オブ ジェ クト > 


与え られ た オプ ジェ クト が か 数値 で あれ ば TRUE を 、 そ う で な けれ ば FALSE 
を 返す . 


・ Or 


書式 or < 判定 文 > < 判定 文 > 


与え られ た 判定 文 の う ち 、 どれ か ひと つ で も TRUE が あれ ば TRUE を 返す . 
すべ て が FALSE の 場合 は FALSE を 返す . 引数 が 2 つ 以 外 の と き は 全体 を 
0 くる の 。 


・.OUt 
書式 .out < ポー ト 番 号 > < 出力 デー タ > 


指定 ポー ト に デー タ を 出力 する . 


・output (op) 
書式 oOD < オプ ジェ クト > 


プロ シー ジャ の 実行 を 終了 し , オプ ジェ クト の 値 を プロ シー ジャ の 結果 と し て 
返す . 


・ paddle 
書式 paddle < パドル 番号 > 


パドル が 押さ れ て いる 方 向 を 数 値 で 返す . 


・Dpalette 
書式 


palette < パレ ッ ト 番 号 > 


指定 され た 色 の カラ ー 成 分 を リス ト [R G B] で 返す . 


* DaUSe 


書式 


DaUSe 


ブロ シー ジャ の 実行 を 中 断 し , キー ボード か ら の 入力 を 受け る . 
* Den 


書式 


pen 


現在 の ペン 情報 を 返す . 


・pencolor (pc) 


書式 DC 


現在 。 ペン (= タート ル ) が 持っ て いる カラ ー コ ー ド を 返す . 


・pendown (pd) 
書式 pd 


ター トル を , 線 を 描く 状態 に する . 


・penerase (pe) 


書式 


De 


ター トル が 線 を 消し な が ら 移 動 す る よう に する . 


・penreverse (px) 
書式 px GRAP 


すでに 画面 に 表示 され て いる 色 と ペ ン の 色 の カラ ー コ ー ド の 排他 的 論理 和 
(XOR) を カラ ー コ ー ド と する 線 を 描く よう に する . 


・penup (pu) 
書式 DU GRA 


ター トル が 線 を 描か ず に 移動 する よう に する . 
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・DieCe 
書式 piece < 先頭 要素 番号 > < 最終 要素 番号 > < オプ ジェ クト > 
与え られ た 先頭 要素 番号 か ら 最 終 要 素 番号 まで に ある すべ て の 要素 を オプ ジ 
ェクト 中 か ら 抜 き 出 し て 返す . 


(先頭 要素 番号 ) is 返さ れる オブ ジェ クト 『 (最終 要 率 番号 ) 


LlLI 菩 上 較 [| 


オプ ジェ クト 


・plist 
書式 


< 名 前 > 
指定 し た 名 前 に 登録 され て いる プロ パテ ィ リ スト の 全 要 素 を 返す . 


plist 


・ DO 


書式 
指定 の プロ シー ジャ また は グロ ー バ ル 変 数 の 内 容 を 表示 する . 


po < 名 前 > また は po < 名 前 の リス ト > 


・poall 


書式 


poall 


ワー クス ペー ス 内 の 全 プ ロ シ ー ジ ャ , グロ ー バ ル 変 数 の 内 容 を 表示 する . 


・DOnS 


書式 


ponSs 


ワー クス ペー ス 内 の 全 グ ロー バル 変数 の 内 容 を 表示 する . 


*・ DODS 
pi 衣 23 
ワー クス ペー ス 内 の 全 プ プロシージャ の 内 容 を 表示 する . 


* DOS 


書式 pos 
現在 ター トル が いる 位置 の 絶対 座標 値 リ スト を 返す . 


・DOtS 
書式 


pots 


ワー クス ペー ス 内 の 全 プ ロ シ ー ジ ャ の タイ トル だ け を 表示 する . 


* DDrOD 
書式 pprop < 名 前 > < プロ パテ ィ 名 > < 内 容 〉 


与え られ た プロ パテ ィ 名 と 内 容 を リス ト と し て , 指定 され た 名 前 の プロ パテ ィ 
リス ト に 登録 する . 


オプ ジェ クト を 画面 に 表示 し , 表示 が 終る と 改行 する . 引数 が 1 つ 以 外 の と き 
は 全休 を ( ) り <2DSS の * 


オプ ジェ クト が 直接 評価 され る の を 防ぐ . 


quotient 


書式 quotient < 被 除 数 > < 除 数 > 


割り 算 の 答 を 整数 値 で 返す . 小数 点 以 下 は 切り 捨て られ る . 


・random 


書式 random < 数 値 > 


0 以上 指定 値 未満 、 ま た は 指定 値 よ り 大 きく 0 以下 (マイ ナス の 数 値 を 指定 し 
た 場合 ) の 整数 値 の 乱数 を 返す . 


・readchar (rc) 
書式 rC 
KEY 


キー ボー ド か ら 1 文字 の 入力 を 受け , その 値 を 返す . [は 必要 な く 、 画面 へ の 
エコ ー バ ッ ク も し な い 、. 


・readquote (ra) 
書式 。rq 
KEY 


キー ボー ド か ら , | まで の 文字 入力 を 受け , その 結果 を ワー ド 形 式 で 返す . 画 
面 へ エコ ー バ ッ ク す る . 


・reCyCle 
書式 recyCle 


ワー クス ペー ス 内 の ゴミ 集め を 強制 的 に 実行 する . 
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・remainder 


書式 remainder < 被 除 数 > < 除 数 > 
整数 除算 の 余り を 返す . 


・remDrop 
書式 remprop < 名 前 > < プロ パテ ィ 名 > 


指定 し た プロ パテ ィ を 名 前 で 指定 し た プロ パテ ィ リ スト か ら 削 除 す る . 


・repeat 


書式 
命令 リス ト を 数 値 で 指定 し た 回 数 だ け 繰 り 返 し 実行 する . 


repeat < 数 値 > < 命令 リス ト > 


・rerandom 
書式 rerandom 


random , shuffle で 発生 する 乱数 を , 特定 の 乱数 系 列 の 先頭 に 戻す 。 


・resetpalette 
書式 
指定 し た カラ ー パ レッ ト の 色 を 初期 状態 に 戻す . 引数 を 省略 し た 場合 は すべ て 
の パレ ッ ト を 初期 化す る . 


〈 パ レッ ト 番 号 > 


resetpalette 


・right (rt) 
書式 rt < ステ ッ プ 数 > 


指定 し た 角度 だ け タ ー ト ル の 向き を 右 回 り に 回 転 き させ る. 


・round 


書式 round < 数 値 > 
数 値 の 小数 点 以下 第 一 位 を 四捨五入 し た 値 を 返す . 


・ Tu 


書式 


与え られ た 命令 リス ト を 実行 する . 


run < 命令 リス ト > 


* SaVe 


書式 


ワー クス ペー ス 内 の デー タ を すべ て ディ スク に 書き 込む . 


save < ファ イル 名 > 


・SCrunch 
書式 SCrunch 
ドッ ト の 縦横 比 を 補正 する 状態 で あれ ば 「 1 」 を , 補正 し な い 状態 で あれ ば 「 0 」 


を 返す . 


1 Logo 


・sentence (se) 
書式 se < オプ ジェ クト >〉 < オプ ジェ クト >〉 …… 


与え られ た オブ プ ジェ クト の 一 番外 側 の [ ] を 取っ た も の を 要素 と する リス ト 
を 返す . 引数 が 2 つ 以 外 の と き は 全体 を ( ) で 〈 く る . 


・setalpha 
書式 setalpha < カラ ー コ ー ド > 


テキ スト 表示 画面 で 使わ れる 文字 の 色 を 設定 する . 


・setborder 
書式 setborder < カラ ー コ ー ド > 


ポー ダー エリ ア の 色 を 設定 する . 


・ SetCUrSOr 


書式 setcursor < 座標 値 リス ト > 
指定 し た 座標 に カー ソル を 移動 する . 


^・ setd 


登録 ドラ イブ を 指定 する . 


・setheading (seth) 
書式 seth < 絶対 角度 > 


ター トル を 指定 の 絶対 角度 (基準 回 転 軸 か ら 右 まわ り に 何 度 か ) の 方 向 に 向け 
る . 


・setpalette 
書式 setpalette < カラ ー コ ー ド > <RGB 成 分 リス ト > PALET 
カラ ー フ パレット の 色 を 設定 する . 


・ SetDC 
書式 setpc < カラ ー コ ー ド > TURTL 


ター トル の 持つ ペン の 色 を 設定 する . 


・Setpen 
書式 。 setpen < ペン 情報 リス ト > 
ター トル の 持つ ペン の 色 と ペ ン の 状態 を 同時 に 設定 する . 


・setpos 
書式 setpos < 座標 リス ト > TURTL 


ター トル を 指定 の 絶対 座標 に 移動 する . 
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・setscrunch 
書式 setscrunch 1or0 


引数 が 「 1 」 の と き 1 ドット の 横 比 を 補正 する 状態 に 、「 0 」 の と き は 補正 し 
な い 状 態 に する . 


・setsplit 
書式 
く プ リッ ト 画 面 に し た と き 。, 
を 指定 する . 


setsplit < テキ スト 表示 行 数 > 


画面 の 下 か ら 何 行 分 テキ スト 表示 領域 を と する か 


・SetX 


書式 setx <X 座 標 > 
ター トル を 指定 の X 座 標 位置 (絶対 座標 ) まで 水平 に 移動 させ る . 


・Sety 
書式 sety <Y 座 標 > TURTL 


ター トル を 指定 の Y 座 標 位置 (絶対 座標 ) まで 垂直 


に 移動 させ る . 


・show 


書式 
オプ ジェ クト を その まま 画面 に 表示 し , 表示 後 改行 する . オプ ジェ クト が リス 
ト の 場合 ), プ ラケット ([ ]) も 表示 され る . 引数 が 2 つ 以 上 の と き は 全体 を 
( 邊 で くぐる 。 


show < オプ ジェ クト > < オプ ジェ クト >〉 …… 


・shownp 
書式 shownp 


ター トル が 画面 に 表示 され て いる 状態 な ら ば TRUE, そう で な けれ ば FALSE 


を 返す . 


・showturtle (st) 
書式 st TURTL 


ター トル を 画面 に 表示 する 状態 に する . 


・shuffle 


書式 shuffle < リス ト > 


与え られ た リス ト の 各 要 素 の 並び 方 を ラン ダム に 入れ 奉 え る . 


sin く < 角度 > 


三角 関数 サイ ン の 値 を 返す . 角度 は 度 (degree) で 与え る . 
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・splitscreen ([F 2 ] ) 


書式 splitscreen 


グラ フィ ッ ク 画 面 の 上 に テキ スト 画面 を 重ね て 表示 する 状態 に する . 


実行 し て いる プロ シー ジャ を 終了 し , その プロ シー ジャ を コー ル し た プロ シー 
ジャ に 実行 を 戻す . 
・text 
書式 text < プロ シー ジャ 名 > 


指定 の 名 前 で 登録 まれ て いる プロ シー ジャ の 定義 プロ パテ ィ を 返す . 
・textscreen ([F 1 | ) 


書式 textscreen 


画面 全体 を テキ スト 表示 だ け に 使う 状態 に する . 


・thing 


書式 thing < 変数 名 > 


与え られ た 変数 名 に 登録 され て いる 変数 の 値 を 返す . 


・throw 


書式 


throw < 名 前 > 
同じ 名 前 を 引数 に 持つ catch の 次 に 実行 を 移す . APPENDIX 1( 4 ) 参照 . 


・to 


書式 


to < 名 前 > 
プロ シー ジャ の 定義 を 開始 する . end を 入力 する と 定義 を 終了 する . 


・tones 


書式 


tones < 音符 デー タリ スト > 


音程 デー タ ( 0 一 49) と 音 長 デ ー タ (0 -32767 : n/1000 秒 ) を 組み 合わ せ た 音 
符 デ ー タ に より 音楽 を 演奏 する . 


・towards 
書式 towards < 座標 値 リ スト > 
現在 の ター トル 位置 か ら 見 た 指定 護 標 の 方 向 を 絶対 角度 で 表す . 
・trace 
書式 trace 
[DEBUG| 
トレ ー ス モー ド に 入り , プロシージャ 名 、 レ ベル 番号 , 変数 値 を 表示 し な が ら 
実行 する よう に する . 
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・type 
書式 
与え られ た オプ ジェ クト を 画面 に 表示 する . 表示 が 終了 し て も 改行 し な い . 引 
数 が ひと つつ 以外 の と き は 全体 を ( ) で 〈〈 る . 


type く < オプ ジェ クト 〉 < オプ ジェ クト 〉 …… 


・UDDercaSe (uc) 
書式 uc 〈 ワ ー ド > 


ー ド を 大 文字 に し て 返す . 


与え られ た ワ 


・.Vin 
書式 .in く < ビデ オ RAM アド レス > 


ビデ オ RAM の 指定 アド レス か ら デ ー タ を 読取 り , その デー タ を 返す . 


・.VOout 
書式 ) .vout < ビデ オ RAM アド レス >〉 < 出力 デー タッ > 


ビデ オォ RAM の 指定 アド レス に デー タ を 書き 込む . 


・wait 


書式 wait < 数 値 > 
プロ シー ジャ の 実行 を 約 1/60 秒 の 数 値 舎 だ け 停止 する . 


・watch 
書式 watch < プロ シー ジャ 名 > また は 
watch < プロ シー ジャ 名 リス ト > 


指定 し た プロ シー ジャ に つい て プロ シー ジャ の レベ ル 番 号 、 プロシージャ 名 , 
汰 に 実行 する 命令 の 表示 を 一 命令 ご と に 行い 、。 キーボー ド か ら の 命令 入力 を 受 
け 付 ける ステ ッ プ 動作 を する 状態 に する . 引数 を 省略 する と すべ て の プロ シー 
ジャ に つい て 行う . 


・where 


書式 where 


memberp 文 と 組み 合わ せ 、 オプ ジェ クト 中 の 指定 の 要素 が 何 番目 に 位置 し て 
いる か を 番号 で 返す . 


・window 
書式 window 


ター トル が 自由 に 画面 の 外 に 出 ら れる よう な 状態 に 設定 する . 


・WOrd 
書式 word < ワー ド 〉 < ワー ド 〉 …… 


与え られ た ワー ド を 合成 し ひと つの ワー ド と し て 返す . 引数 が 2 つ 以 外 の と 
き は 全体 を ( ) で 〈 く くる. 


・WOrdD 
書式 wordp < オプ ジェ クト > 


与 を られ た オプ ジェ クト が ワー ド で あれ ば TRUE, そう で な けれ ば FALSE を 
返す . 


与え られ た 数 値 の 和 を 返す . 引数 が 2 つ 以 外 の と き は ( ) で 〈 く る. 


与え られ た 数 値 の 積 を 返す . 引数 が 2 つ 以 外 の と き は ( ) で 〈〈 る . 


書式 / < 被 除 数 > < 除 数 
与え られ た 数 値 の 商 を 返す . 


・ ぐ 
書式 く < ワー ド 1〉 < ワー ド 2〉 


ワー ド 1 が 2 より も 小さ けれ ば TRUE を 返し 、 それ 以外 は FALSE を 返す . 


> 〈《 ワ ー ド 1>〉 〈( ワ ー ド 2> 


ワー ド 1 が ワー ド 2 より も 大 きけ れ ば TRUE, そう で な けれ ば FALSE を 返 
す . 
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p クィ ッ ク ・ コ マン ドリ ファ レン ス 


6 章 7 節 で 解説 し た ,N。。-BASIC か ら 777 BASIC へ の 移植 に 便利 な , クィ ッ ク ・ コ マン ドリ フ 
ァ レ ンス を 載せ て お きま す . この 表 は , 左側 に N。。-BASIC の コマ ンド を 網 北 し て あり , 右側 に は 
それ に 対応 し た 777 BASIC の コマ ンド が 様々 な 場合 を 考慮 し て 載せ て あり ます . で すか ら 読 者 の 
方 は 左右 の 対応 を 見 て ,「 あ っ そう か // 」 と 言っ て プロ グラ ム を 書き 直す な り , 777 BASIC の マニ 
ュ ア ル を 引き 直す な りす れ ば , 次 第 に 双方 の BASIC の 関係 が わか っ て くる で し ょ う . な お , 中 央 
の 部 分 に “like” と か use” と か 書か れ て いる 場合 に つい て 説明 し ます . 


1 六 0 0)GRCGGOOGOCKZG2 ・ 完全 に 同一 仕様 で は な い 

・ 意味 的 に は 同様 の も の で ある 

・ 一 番 仏 て いる も の で ある 

・ マニ ュ ア ル を 見 る 必要 が る 
URIONGGGOrO22G2 ES な 2 和 半 0 な ホウ な と が で きろ 

・ 組み 合わ せ て 使う 

・ 本質 的 に は 違う が , これ を 使う 

・ マニ ュ ア ル を 見 る 必要 が ある 


何 も 書 いて いな いも の は , ほとん ど そ の まま 使え ます が , 書式 を 間違わ な いよ うに し て くだ き さ 
い . な お 777 BASIC の 欄 に “ プ " が 入っ て いる も の は , 対応 する 命令 が な い , また は 実現 が 非 
常に 難し いも の で す . 

さら に , 777 BASIC の 命令 に 書き 換え た つも り だ が エラ ー が 出る と き に は , 右側 か ら 探し て N。。 
-BASIC の 命令 を 確認 し た 上 で , マニ ュ ア ル を 調べ て みる こと を お 勧め し ます . 

この リフ ァ レ ンス を 見 る より , マニ ュ ア ル を ひい た 方 が 速い と 感じ る よう に な れ ば , か な り 移 
植 に 慣れ る こと が で きた と 言え ます . 

N。。-BASIC と 777 BASIC は , 2920R 論 居 Ysg の 滞る の 近 東 い と 思い ます . 他 
の BASIC に も , この よう な リフ ァ レ ンス を 考え て みて は いか が で し ょ うか 。 
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2 クイック ・ コ マン ドリ ファ レン ス 


表 A-2 Naa-BASIC か ら の クイ ッ ク ・ コ マン ドリ ファ レン ス 


還 C 洋 | So 
ABS ABS 


ASC ASC 
ATN ATN 
AUTO AUTO 
BEEP BEEP 
BLOAD LINK 
BSAVE / 
CALL CALL 
CDBL CFLT 
CHAIN CHAIN 
CHR$ CHR$ 
CINT CINT 


FOR<NEXT 
FP0S 

FRE 
GET 


CIRCLE CIRCLE GETe GGET 

CLEAR CLEAR, MCLEAR GOSUB て RETURN GOSUB て RETURN 
CLOSE CLOSE GOTO GOTO 

CLS CCLEAR HELP 0N/OFF/STOP / 

CLS 2 GCLEAR HEX$ HEX$ 

CLS 3 WIPE IF て THEN~ELSE IF て THEN~ELES 
COLOR CCOLOR, GCOLOR INKEY$, INPUT$ INKEY$ 
COLOR 三 (, ) DEF PALETTE, PALETTE RESET || INP INP(use carefully) 
COM ON/OFF/STOP / INPUT INPUT 
COMMON / INPUT = INPUT # 
CONSOLE CONSOLE INPUT WAIT / 

CONT CONT INSTR INSTR 

COPY ーCOPY INT INT 

COS COS KEY DEF KEY 

CSNG CFLT KEY LIST KEY LIST 


CSRLIN 

CVI, CVS, CVD 
DATA 
DATES 
DEF FN 
DEF USR 


CSRLIN 

/ 

DATA 

/ 

DEF FN 

DEF ANN(use carefully) 


KEY(n) 0N/OFF/STOP 
KILL 

LEFT$ 

LEN 
LET 
LFILES 


DEFDBL DEF FLT LINE LINE, BOXE, BOXF 
DEFINT DEF INT LINE INPUT INPUT ル L 
DEFSNG DEF FLT LINE INPUT キ INPUT/L ミ 
DEFSTR DEF STR LINE INPUT WAIT / 

DELETE DELETE LIST LIST 


DIM 
DSKF 
DSKIS 
DSKO$S 
EDIT 


LLIST 
LOAD 

LOAD? 
LOC 


LLIST 
LOAD 
LOAD/V 
/ 


LOCATE LOCATE 
END LOCATE, , 0 CURSOR OFF 
EOF LOCATE, , 1 CURSOR ON 
ERASE LOF / 
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し ms 
LOG LN 


LPOS / 
LPRINT PRINT@ 
LPRINT USING PRINT@ 
LSET / 

MAP の 
MERGE MERGE 
MID$ MID$, REPLACE$ 
MKI, MKS$, MKD$ 
MON 
MOTOR 
NAME て AS_ 
NEW 
NEW ON 
OCTS 
ON COM GOSUB 
ON ERROR GOTO 
ON ERROR GOTO0 0 
ON HELP GOSUB 
ON KEY GOSUB 
ON PEN GOSUB 
ON STOP GOSUB 
ON TIME$ GOSUB 
ON て GOSUB 
ON て GOTO 
OPEN(for input) 
OPEN(for output) 
OPEN(for random access) 
OPTION BASE 
OUT 
PAINT 
PEEK 
PEN 
PEN ON/OFF/STOP 
POINT 
POKE 
POS 
PRESET 
PRINT 
PRINT を 
PRINT は USING 
PRINT USING 
PSET 
PUT 


7 


PUT@ GPUT, KCOLOR, KPRINT 
RANDOMIZE RANDOMIZE 
READ READ 
REM REM 
RENUM RENUM 
RESTORE RESTORE 
RESUME RESUME 
RIGHTS$ RIGHT$ 
RND 
ROLL 
RSET 
RUN 
SAVE 
SCREEN 
SEARCH 
SET 
SGN 
SIN 
SPACE$ , SPC 
SOR 
STOP 
STOP OFF 
STOP ON 
STR$ 
STRINGS 
SWAP 
TAB 
TAN 
TERM 
TIMES 

TIME$ 0N/OFF/STOP 
TROFF 
TRON 
USR 
VAL 
VARPTR 
VIEW 
WAIT 
WHILEーWEND 
WIDTH 
WIDTH LPRINT 
WINDOW 
WRITE 
WRITE 


1 
1 USING 


ON ERROR GOT0.ERROR ON 
ERROR OFF 


SPACE$ 
SQR 
STOP 
ESC ON 
ESC OFF 
STR$ 
STRING$ 
SWAP 
TAB 


ON<GOSUB 
ON て GOTO 

OPEN/| 

OPEN/O 

/ 

OPTION BASE 
OUT(use carefully) 
PAINT 

PEEK(use carefully) 
/ 

/ 

GPOINT, GPOSX, GPOSY 
POKE(use carefully) 


DEBUG 
DEBUG 
ANN(use carefully ) 
VAL 
VARPTR 

/ 

/ 
WHILEWEND 
CONSOLE 


PRINT USING 
GPLOT 
2 
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3 Assembler 


J A ム ssembDler 


(1 ) MORE 


シス テム メニ ュー に ある TYPE で て で, アスキー 形式 の ファ イル を 一 応 見 る こと は で きる の で す が , 
若干 不 満 も あり ます . それ は , 


・ 画 面 が 横 40 桁 で 」。 特に アセ ンプ ラ の リス ティ ング ファ イル は 見 苦し く な る 


・[CTRL| + [S | を 押 き な いと 勝手 に どん どん 表示 し て いっ て し まい , 見 た い 部 分 を 逃し て 
し まう こと が ある 
な ど で す . そこ で , こう いっ た 不満 を 解消 する た め ,「MORE」 と いう Sony Filer の コマ ンド を 作 


っ て み ま し た . これ は 同名 の UNIX (4.1BSD) の コマ ンド (正確 に は は フィ ル タ と 呼ば れ な けれ ば 
な り ま せん が ) の 主 を 機能 を 真似 た も の で , 


MORE < ファ イル 名 > 
と いう 形 て 実行 し , 画面 1 ペー ジ 分 表示 する と, 
--MORE-- 


と 表示 し て 止ま り , この と き ス ペー ス を 押す と さら に 1 ペー ジ 表 示し ます . また スペ ー ス の 代わ 
り に [| を 押す と 1 行 表 示し て 止ま り ま す . スペ ー ス の 代わ り に D を 押す と , 11 行 分 表示 し て 止ま 
り ま す . 1 ペー ジ を な り 11 行 を なり を 表示 し 終ら な いう ち に 止め た いと き は , [CTRL| + [S] を 押し , 
[CTRL| + [Q] を 押す と そこ か ら 1 ペー ジ 分 表示 し て か ら 止 まり ます , [CTRL]+[S] で 止ま っ 
て いる と きも [は 同様 の 働き を し ます . そし て [ESC| を 押せ ば いつ で も シス テム メニ ュー に 戻 
り ま す . 

リス ト A-2 に この MORE の リス ティ ング ファ イル を 示し ます . 


NSRSSSES 定 SS List A-2 
9991 19 : ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニー ニー 
9992 29 “』 More nan こと > お 
9993 30 ′: ニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニーーーー 
9994 49 』 
9995 99F9 41314191 59 “ orog 9f6h 
99F4 9F99F999 
9996 99F8 58999991 69 “ en モッ X 
99FC FF99 
9997 99FE 9999 79 3 モ 上 ar 
9998 89 「i 
9999 9995 99 “bdos で qu 9995h 
8919 995C 199 "fcb eqQu 995ch 
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9911 119 i 

9912 1 クニ ニニ ニニ ニニ ニー ニニ ュー ニニ ニー ニ ニ ーー ニー ニー ニー ニニ ニニ ニニ ニニ ニニ ニニ ニニ ョ ニニ ユニ ニニ ニン 
9913 139 「i open file 

9914 1.40 "ニーー ニ ーー ニー ニニ ニー ニニ ニニ ニー ニニ ーー ニニ ーー ニー ニー ニー ニニ ーーー ニ ーー ニー ニニ ニー ニー ニー ニー 一 
9915 159 ji 

9916 9199 115C99 169 'x: de=f†cb 

9917 9193 9E9F 179 c=15 i 和 file open 

9918 9195 CD9599 189 ]bdos 

89919 9198 3C 199 『 8+ 

8929 9199 2921 299 “ ->mocont1 ,“9 

9921 219 

9922 229 "jーー- file not found ーー-- 

9923 239 

99242 919B 2E9B 249 1 =11 -? XCOr 

9925 919D 269C 259 “ h=1 2 ?ycor 

9926 919F 1699 269 “ d=9 

9927 9111 9E15 279 c=21 ? mO ソ Ge こり F ヨ Or 

89928 9113 CF 289 ]"98 

9929 9114 111B91 299 『 de=mome358a 

9939 9117 9E99 399 “ c= ウ iCRT-out message 
9931 9119 CF 319 “ ]" 98 

99832 911A C9 329 “ [ 

8933 339 「』 

9934 911B 46696C65 349 "momessa: db *File not found!!"。9 


911F 296E6F74 
9123 29666F75 
9127 6E642121 


912B 99 
9935 359 「』 
9936 366 ":ーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーー 
9937 379 main 
9938 389 "ーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーー 一 
9939 399 『』 
9949 912C 9E15 499 “mocont1: c=21 
9941 912E 11991B 419 “ de=1b99h sconsole 89 
9942 9131 CF 429 “ ]"98 
9943 439 「: 
9944 9132 ED736491 449 “ ( apstack )= ョ p 
9945 9136 111859 459 “ de=5918h 59h=89 , 1 7h=24 
9946 469 「: 
9947 9139 CDEC91 479 "moloop: Jreaddma 
9948 913C CD1192 4289 ] ョ crnout 
9949 913F FE9D 499 “ aー-13 
89959 9141 2994 599 “ ー>monotcr,~ 9 
9951 9143 1659 519 “ d=89 
9952 9145 1813 529 “ ー>moinkey 
9953 539 ": 
9954 9147 FE9A 549 "monotcr: a-19 
9955 9149 2996 559 “ ー>monot1f。“9 
8956 98914B 1D 569 “ eー 
9957 914C CC6B91 579 “ コ Jprn て more,9 
9958 914F 1899 589 “ ー>mo1nkey 
9959 599 「s 
9969 9151 15 699 "monot1fi d- 
9961 9152 2996 619 ー>moinkey,“9 
9962 9154 1D 629 “ eー 
9963 9155 CC6B91 639 “ Jprntmore,9 
9964 9158 1899 649 “ ー>moinkey 
9965 659 “』 
8966 915A CD1A92 669 “moinkey: ]inkey9 
9967 915D FE13 679 “ aー19 ? ニ ^ ョ 
9968 915F CCCA91 689 “ ]ctr]l as,9 
9969 9162 18D5 699 “ ー>mol oop 
8979 799 「i 
9971 9164 9999 719 " ョ patack: ds 2 
9972 729 「j』 
9973 3 ”』ーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーー 一 
9974 749 Abort 
9975 020 回 2 ニ ニニ ニニ ニニ ニニ ニー ニ ニ ニー ニニ ニ ニニ デニ ニー ニー ニー ニニ ニン ニニ ニニ ニニ ニニ ニー ニニ ニー ニニ ニニ ニニ 
976 769 「』 
9977 9166 ED7B6491 779 “abort: ら ロ ニ ( 5p5 上 ac に k ) 
9978 916A C9 789 [ 


119917 
9E15 
CF 


113795 
9E15 
CF 


11B691 
9E99 
CF 


9E15 
111795 
CF 


CD2A92 
FE9D 


2D2D4D6F 
72652D2D 
9D99 
29292929 
29292929 
9D99 


CD2A92 
FE9D 
2995 
CDDE91 
18F4 


"prntmoreide=179h 


"pmprmore : de=9537h 


すま 
^pmloop: 
の 
の 
と 
2 
/ 


り 
ロ 
9 


^ pmnotcr: 
の 


り 


ィ 


を 
^ pmnotBPc 


ィ 
ロ 
Z 
Z 
ロ 
Z 
り 


5 
"pmme388: 


^pmmea5a1 * 


"ctr1s: 


Z 


H 
ーーーー return from 


3 Assembler 


?Cursor off 
c=21 

]' 98 

set attr to "reverae' 
c=21 

]"98 


de=pmme338 
c=9 
]"98 


?ma3389e Out 


c=21 
de=9517h 
]"98 


imake attr normal 


]inkey1 
a-13 
ー->pmnotcr, "9 
de=pmmessa1 
c=9 

]" 98 
]oneline 
ー>PmPrmOre 


? me383a9e OU 


aー-32 
ー>pmnotspc, "9 
e=23 
ー>pmreturn 


: a=a&9dfh 


a-44h ij="D" 
ー->pmloop,~9 
e=1 1 


*--More--” ーーーー 


すま 
Pmreurn : 性 de 


de=pmmesSa1 
? me3589e Out 
]*98 


scCurSOor On 


db *--More--' ,13,9 


db 1 "。13,9 


]inkey1 

a-13 
ー>csnotcr,"9 
Joneline 
ー>ctr]1 = 
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9146 1469 「: 

9147 91D6 FE11 1479 “canotcr: a-17 H に 拉 に | 

9148 91D8 29F9 1489 ー->ctrl1s,"9 

9149 91DA 111759 1499 『 de=5917h i59h=89 , 1 8h=23 

9159 91DD C?9 1599 “ 世 

9151 1519 

9152 1529 ′ ーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーー 一 
9153 1539 「j Screen out ti]1] 1f 

9154 1549 "ーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーー 一 
8155 1559 「: 

9156 91DE CDEC91 1569 “oneline: ]readdma 

9157 91E1 CD1192 1579 “ コ ョ crnout 

9158 91E4 FE9A 1589 “ a-19 ? 三 1ff 

9159 91E6 C8 1599 “ [,9 

9169 91E7 CD1A92 1699 “ ]inkey9 

9161 91EA 18F2 1619 ー>one] ine 

9162 1629 「 

9163 1 630 "』ーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーー 
9164 1649 read 1 byte from dma area 

9165 1659 "ーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーー 
9166 1669 「: 

9167 91EC 3A1992 1679 "readdma: a ョ =(rdcntr ) 

9168 91EF B?7 1689 “ 8 ニ a ia 

9169 91F9 2919 1699 ー>rdskip,~9 

9179 1799 

9171 1719 ′:ーーー- read One aeC モ Or ーーーー 

9172 1729 「』 

9173 91F2 D5 1739 “ =de 

9174 91F3 115C99 1749 “ de=fcb 

9175 91F6 9E14 1759 c=20 iread one Sec て or 

9176 91F8 CD9599 1769 Jbdos 

9177 91FB 3C 1779 “ ョ + 

9178 91FC CA6691 1789 “ =>abort, け 9 

9179 91FF D1 1799 de ニキ 

9189 9299 3E89 1899 “ a=89h 

9181 1819 

9182 9292 2699 1829 "rdskip: h=9 

9183 9294 6F 1839 “ 1=a 

9184 9295 3C 1849 “ 8a+ 

9185 9296 321992 1859 “ (rdcntr )=a 

9186 9299 7E 1869 “ a=(h1 ) 

9187 929A FE1A 1879 “ ュー1 ah ぅ =eof 

9188 929C CA6691 1889 “ =>abort,9 

8189 929F C? ヶ 1899 “ [ 

9199 1999 「: 

9191 9219 99 1919 “rdgcntr: db 9 

9192 1929 「: 

9193 1930 ":ーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーー 
8194 1949 Screen out 1 charac て or 

9195 1959 "ーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーー 一 
9196 1969 「 

9197 9211 D5 1979 "crnout: 則 =de 

9198 9212 F5 1989 “ 性 三 a 填 

9199 9213 5F 1999 “ e=a 

8299 9214 9E98 2999 “ c=8 

9291 9216 CF 2919 “ ]* 98 

98292 9217 F1 2929 “ a 千 三 革 

9293 9218 D1 2939 “ de= 

9294 9219 C2 2949 “ 必 

9295 2959 「j: 

9296 2969 "ーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーー 一 
9297 2979 「: 1nkey$ ま (9 ) 

9298 2989  :ーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーー 
9299 2999 「: 

9219 921A DB1B 2199 "inkey9:  a=p(1bh) ? に ey = モ au5 

9211 921C 9F 2119 > て 。 う @ 

9212 921D 3893 2129 “ ー> ュ 9pressd, @ 

9213 921F 3E99 2139 “ 』a=9 


9214 9221 C2 2149 [ 
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215 9222 DB1A 2159 “1i9pressd:a=p( 1ah ) ?key data 

8216 9224 FE1B 2169 “ ョ ー27 

9217 9226 C9 2179 “ [,“9 

9218 9227 C36691 2189 “ = ニ >abort 

8219 2199 "。 

9229 2200 |? ーー ニーーーーーー ニ ニニ ニニ ニニ ニニ ニニ ニニ ニー ニニ ニー ニーー ニ ーー ニー ニニ ニニ ニニ ニニ ニニ ニニ ニー 
9221 2219 「』 inkey$( 1 ) 

9222 2220 "ーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーー 
9223 2239 「i 

9224 922A DB1B 2249 "inkey1:  a=p( 1bh) ? key =tatus 

9225 922C 9F 2259 “ >《 。)@ 

9226 922D 39FB 2269 “ ー>inkey1.^@ 

9227 922F 18F1 2279 “ ー>19pressd 

9228 2289 「i 

9229 9231 2299 “ end 

9166 ABORT 9995 BDOS 91D6 CSNOTCR 91CA CTRLS 995C FCB 


9222 I9PRESSD 921A INKEY9 922A INKEY1 912C MOCONT1 915A MOINKEY 
9139 MOLOOP 911B MOMESSA 9147 MONOTCR 9151 MONOTLF 91DE ONELINE 
9183 PMLOOP 91B6 PMMESSA 91C9 PMMESSA1 9195 PMNOTCR 919D PMNOTSPC 
8171 PMPRKMORE 91A5 PMRETURN 916B PRNTMORE 9219 RDCNTR 9292 RDSKIP 
91EC READDMA 9211 SCRNOUT 9164 SPSTACK 9199X 


( 2 ) ザイ ログ ニー モニ ッ ク か ら ANN 表 記 へ の 対応 表 


Debugger の マニ ュ ア ル に ANN 表 記 か ら ザ イロ グ 表 記 へ の 対応 表 は 載っ て いま す が , その 逆 が 
あぁ ありません. むし ろ 必 要 な の は 逆 の ほう で は な いか と 思う の で す が …. そこ で , ザイ ログ 表記 か 
ら ANN 表 記 へ の 対応 表 を 表 A - 3 に 示し ます . 


jj, n n, qq, T, Xx, y は 決 の よう な も の を 代 表す る も の で す . 


) : 1 文字 

nn  : ア ドレ ス 

qq  : AF も 含め た レジ スタ ベア 

r : (HL) や (IX 十 d) 等 も 含め て 8 ビッ ト の レジ スタ と イミ ディ エイ ト の デー タ 
X,。 Y :, (カン ママ ) を 含ま な いも の 
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表 A-3 ザイ ログ 表記 か ら ANN 表 記 へ の 対応 表 


ADC xy X ニ x 十 yG ー>nn, で @ 
ADD xy xx 十 y NZ. nn ー>nn, で 0 
AND r a 三 a&r JR Z. nn ーッ nn, 0 
BIT jr r.J? JR nn ーッ nn 
CALL C,nn ]nn, @ LD xy x ニ y 
CALL M,nn ]nn, 一 LDD (de-)= ニ (hl 一 ) 
CALL NC,nn ]nn, て @ LDDR |(de 一 )=(hl 一 )| 
CALL NZ.nn ]nn, て 0 LDI (de 二 ) =(hI 十 ) 
CALL Pinn ]nn, 十 LDIR |(de 十 ) =(hl+)) 
CALL PE.nn ]nn,e NEG ーa 
CALL PO,nn ]nn,o NOP 
CALL Z,nn ]nn, 0 OR r a デ air 
CALL nn ]nn OTDR lp (c)=(hl-)| 
CCF て @ 0OTIR lp (c)=(hl 二 )| 
Pr aーr OUT (C).r p(c) =r 
CPD aー(hl 一 ) OUT (n).A p(n) =a 
CPDR la 一 (hl -)| OUTD p (c) = (hl ) 
CPI aー(hl 寺 ) OUTI p(c)=(hI 二 ) 
CPIR jaー(hl 二 )| POP qq qq ロニ 
CPL | PUSH qq せ 三 qq 
DAA bcd RES j.r r.」 0 
DEC x X 呈 RET 
DI di RET C [, @ 
DJNZ nn デ >nn RET M 丘 デ 
EI ei RET NC [, て @ 
EX  (SP),qq (sp) : qq RET NZ [.^0 
EX AF, AF af : af/ RET P 
EX DE,HL de : hl RET PE 
に RET PO 
hlt RET Z 
im0 RETI 
im1 RETN [n 
im2 RL r く 1@rl 
ap(n) RLA く 1@.| 
rp (c) RLC r ぐ く @ rl 
X 十 RLCA ぐ @ 1. 1 
(hl 一 )=p(c) RLD a く ぐ (hl) 
(hl 一 )=p(c)! RR _r > Irel 
(hl 二 ) =p(c) RRA > 1.@| 
(hl 十 ) =p(c)) RRC r > Tri@ 
ニッ (qa) RRCA >|.!@ 
ニッ >nn, @ RRD a>> (hI) 
ニッ >nn, 一 RST jj 有 H ]'』 
ニッ >nn, で @ SBC xy x ニ xーy@ 
= ニッ >nn, で 0 SCF @ 三 1 
ニッ nn, 十 SET jr r.」 三 1 
ニン nn, e SA に if ぐ r0 
ニッ nn, o SRA r > Tlr@ 
ニッ nn, 0 SRL r >0r@ 
ニッ nn SUB r a 三 aーr 
ーッ シロ nn, @ XOR r a 三 a^r 


4 各種 コー ド 表 
4 各 種 コ ー ド 表 


表 A - 4 は キー ボー ド ・ エ ンコ ー ダ が 返す コー ド の 表 で す . この うち ファ ンク ショ ン キ ー と | 
に 関し て は , 対応 する キー コー ド を 変更 する こと が で きる の で , いつ で も こう な っ て いる と は 限 
り ま せん . また , この コー ド と は 別に , [SHIFT | や [CTRL | が 押さ れ て いる か 否 か を 知る こと が 
で き , BASIC の INKEY$ に より 返さ れる コー ド は 表 A- 5 の よう に な り ます. 表 A- 4 は 直接 キ 
ー ボ ー ド ・ エ ンコ ー ダ を 読む と き に 必要 な も の で , BASIC を 普通 に 使っ て いる 限り は 表 A- 5 だ け 
で REG に 


表 A-4 キー ボー ド ・ エ ンコ ー ダ が 返す コー ド 表 


還 国 ン 


| m 0 m m 
に 1 の) 6」| I い し 
ll wl ら 
ー> 1 ピス ユ mm +ー 
(が 】 の 1 [N 


sF4 | sF1 | % 


m 
で - コ 


1 Jl 障 
oN い 
に 
2 +lw|1 一 | っ せ る 


> 
ニス 
の 


画 四 加 


の 


「 敵 
+ 騰 


s ……SHIFT キ ー と の 同時 押し 
9 CTRL キ ー と の 同時 押し 
F1- ン F5 アー ファ ンク ショ ン キ ー 
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表 A-5 BASIC の INKEY$ に より 返さ れる コー ド 表 


避 R 
ロロ g ロ 本 ロ 
口 還 操 IE 
~ 還 較 還 回 回 
回 記 遇 剛 回 回 
、 國 還 園 回 
占 回 画 共 回 

s ……SHIFT キ ー と の 同時 押し 


へ ……CTRL キ ー と の 同時 押し 
F1CF5…… ファ ンク ショ ン キ ー 


文字 フォ ント 表 

BASIC で FONT RESET 0 また は 1 を 実行 し た あと の キャ ラク タフ ォ ン ト を 以下 に 示し ます . 
キャ ラク タコ ー ド 0 31 の 文字 は 普通 の 文字 と 違っ て , PRINT 等 で 表示 し よう と し て も , この 表 
に ある よう な 形 の 「 文 字 」 は 表示 され ませ ん . これ ら の 文字 は 表示 を 「 制 御 」 す る 文字 だ か ら で 
す . た と えば CHRS (10) を PRINT す る と カー ソル が 1 段 下がる と いっ た 具合 で す . で すか ら 
BASIC で キャ ラク タコ ー ド 0 31 の 文字 を この 表 に ある よう な 形 の 文字 と し て 表示 する に は , 
VOUT か CPLOT を 使う し か あり ませ ん . これ ら の 命令 の 使い 方 は マニ ュ ア ル を 参照 し て くだ さい . 

FONT RESET 1 の 場合 , FONT RESET 0 と の 違い は キャ ラク タコ ー ド 128 一 159, 224 一 255 
の み で , その 差分 だ け 載 せ て あり ます . 
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4 各種 コー ド 表 


=] glgls| 暫 | 還 I ミ SISISIS slslg 
の | つら 1 ココ |1QIoO 
選 1 選 1 ご 11 己 1 己 | コ SISISISISISINISNISNISTTISRTT QIS INSIG | 
ー |( 
NII 引 を ニニ 本 5 5 Ts 5 1 ニコ ISIo ls き IelIeI に IEIEISISISI18S8」I る 1818 ol の | 選 
? に | に は |1SlIeoleoleoleooleo 
な | 中 ら |G| 選 | らら ||| 選 | 選 | 選 | ロロ 1 ロロ | ロロ | ご 信人 は らち 衣 は 一 伯 は 一 伯 区 一 外角 一個 区 トー 介 は 一介 は 一 卓上 一 朋 は つ 介 は 1 
い [で 
赴 |o 夫 十 H ト 制 加 L 四 | いき 5 
Mr 圏 大 大 較 合 較 
に 4 ら lol ト hlIolo| ら | コ |Ql の | ミ さき | 史 | | は | 
Ki 9 SIIKE2IIRS5 る @ ト 避 | さ 1SIS き | き | き | は IS き |S き 1158|81@ | 品 思 | 記 | 匠 | 叫 | 串 
隊 上 EEINSIIS SIM | ココ ピロ | 忌 | コ 1 コ | ピ ロ ピ に ピトー SE 5 補 国 
一 】 
の 
らら | コー|1Ql の | さき |1op ロ | らら | トト 

上 に に に | に に だ 邊 だ = P で lo” 一 | マロ 5 に NIIg 
ビ 
と 
〇 
L 
いこ 】 
6 ャ ゴ 
5 ビ 
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表 A-7 FONT RESET 1 の 場合 の 文字 フォ ント (0 と の 差分 ) 


GT 3 に に es に っ に 局 ee: 計 Ys 
に NM に に に NM に に 4 に RY に に | に 1 に | に 
に に | に に &? 1 2 5 に たっ 1 Us CO に 
RN Q RN NN RN RN Q SQ 員 RA1 RM RM 1 N RA 
Si 5 
の Os] 4 1 2 四 
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SMC 編 第 ① 人 巻 内 容 抜粋 

ハー ド と ソフ ト の 主 な 特徴 

Sony Filer の 概要 

Logo 初 級 講座 

ター トル ・ グ ラフ ィ ッ クス 入門 

Logo の プロ グラ ム 構 計 

グロ ー バ ル 変 数 と ロー カル 変数 

ドラ ゴン 曲線 を 拉 く 

リス ト 処 理 関連 の プリ ミ テ ィ ブ 

デー タ 管 理 プ リ ミ テ ィ ブ 

777 BASIC の 特徴 
EDITEDEBUG 

効果 音 と サウ ンド 
BASIC に よる MEMO の 活用 

グラ フィ ックス の 基礎 
カラ ー パ レッ ト ・ テ クニ ッ ク 

24 色 表示 

線画 に よる 3-D グ ラフ ィ ッ クス 

光線 追跡 法 

SMC グ ラフ ィ ッ クス エディ ター の 利用 
Nss-BASIC か ら の 移植 テク ニッ ク 
ハー ドウ ェ ア 構 成 

応用 周辺 機器 の 自作 

777 Assembler と は 

DOS コ ユー ル 

5 番地 と 8 番地 の 人 違い 

Sony Filer の コマ ンド を 作る 
Logo プ リ ミ テ ィ ブー 覧 
Nss-BASIC か ら の クイ ツク ・ コ マン ドリ ファ レン ス 
ザイ ログ ニー モニ ッ ク か ら ANN 表 記 へ の 対応 表 
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